Macro run (problem)

Poštovani,
imam jedan mali probem, napravio sam sebi neke macro-e koje treba da startuje sledeci makro

Sub PokreniMakro()

If Range("B1") = "Stalna imovina 2009" Then
Application.Run "PERSONAL.XLSB!Macro2009"
ElseIf Range("B1") = "Stalna imovina 2010" Then
Application.Run "PERSONAL.XLSB!Macro2010"
Else: MsgBox "Greška!!!"
End If

End Sub

E sad pošto imam na stotine sheet-ova on radi kad idem pojedinačno jedan po jedan... Ali kad ih markiram sve dolazi do greske, jer macro 2010 ne radi kako treba... A kad idem pojedinačno jedan po jedan sheet sve odlicno radi... Sta bi tu moglo da mi pravi problem?

Pozdrav...

Mogao si da ostaviš XLS primer. Nije najjasnije šta ti treba.

Ja pretpostavljam da je problem u tome što koristiš zapis Range("B1"). Ovakav zapis se odnosti samo na aktivni sheet. Moraš pored toga da imenuješ i sheet na kojem želiš da izvršiš promenu, npr. Worksheets("Sheet1").Range("B1"). Za sve sheetove trebalo bi ti nešto ovako: