Crear condición para ejecutar esta macro

Hola Dam, probé esta macro y ejecuta las macros Imprimir_Superior_Zona_ del 2 al 100, ahora necesito condicionar que ejecute las macros que si el valor en la columna A2:A101 es igual a 1,

Por ejemplo:

A2=1 (QUE EJECUTE LA MACRO Imprimir_Superior_Zona_2)

A21="" QUE NO HAGA NADA

A38=1 (QUE EJECUTE LA MACRO Imprimir_Superior_Zona_38)

A44=1 (QUE EJECUTE LA MACRO Imprimir_Superior_Zona_44)

A62="" QUE NO HAGA NADA

A72=1 (QUE EJECUTE LA MACRO Imprimir_Superior_Zona_72)

A84="" QUE NO HAGA NADA

A101=1 (QUE EJECUTE LA MACRO Imprimir_Superior_Zona_101)

Sub llamafuncionstring()
Dim funimp As String
For i = 2 To 100
funimp = "Imprimir_Superior_Zona_" & i
Run funimp
Next
End Sub