é possível sim
0) veja o nome da sua macro, suponhamos que seja "Ocultar"
1) vá no vba
2) insira um módulo novo
3) cole:

sub RodarTodas
dim sht as excel.worksheet
for each sht in thisworkbook.worksheets
if sht.visible = xlsheetvisible then
sht.activate
call Ocultar
endif
next sht
End sub

Claro, troque o "Ocultar" pelo verdadeiro nome da sua macro.

dentro desta Sub, aperte F5 e deixe rodar...
Isso vai fazer rodar em todas as planihas visíveis da sua pasta de trabalho...

o ruim é que a macro faz em tds as planilhas, alguma não queria que rodasse...
mais.. e como faço pra criar um critério então? Se.. na planilha.. o A1>0.. então rodar a macro ocultar..

Aproveitando o código já postado:

Sub RodarTodas()
Dim sht As Excel.Worksheet
For Each sht In ThisWorkbook.Worksheets
If sht.Visible = xlSheetVisible Then
sht.Activate
If Range("A1").Value > Then Call Ocultar
End If
Next sht
End Sub

Ganhei minutos de vida agora!! HAHAHAHHA
Muitissimo obrigado!!!!!!!!!!!!!!!