para varrer as pastas de trabalho abertas
em um modulo

sub varrepastas()
   for n = 1 to workbooks.Count    '-------------------'( Loop com as pastas de trabalho abertas )

      workbooks( n ).active

      call sua_macro

   next
end sub

isso seria o basico

mas a tarefa poderia ser incorporada na propria macro

Colei o código informado e rodei a macro, porém está ocorrendo o seguinte erro:
Erro '438', o objeto não aceita esta propriedade ou método. Mais precisamente o erro está ocorrendo no seguinte parte.

Workbooks(n).Active

desculpe foi erro meu na hora de escrever

Workbooks(n).Activate

Obrigado Edcronos, funcionou perfeitamente.