Makros auf jedem Blatt ausführen

nachfolgendes Makro soll in einer Datei, meine zwei Format-Makros, auf jedem Arbeitsblatt ausführen.
Leider wechselt es nicht die Arbeitsblätter sondern formatiert nur das erste Blatt.

Sub Format_ULAL()
Application.ScreenUpdating = False
Dim Sh As Worksheet
For Each Sh In Worksheets
Application.Run "PERSONL.XLS!ULAL_Format"
Application.Run "PERSONL.XLS!LOBU"
Next Sh
Application.ScreenUpdating = True
End Sub

Was mach ich Falsch?

Gruß
PETRA