Hallo,
ich stoße mahl wieder an meine Grenzen. Mit den nachfolgenden Code
Dim objWorksheet As Worksheet
Dim wksA As Worksheet
Set wksA = Worksheets("Allgemein")
Application.ScreenUpdating = False
For Each objWorksheet In ThisWorkbook.Worksheets
ActiveWindow.Zoom = wksA.Range("M5")
Next
Application.ScreenUpdating = True
wksA.Range("M5").Select
möchte ich meine Mappe zoomen mit dem Wert der in "wksA.Range("M5") vorgegeben wird.
Er macht es aber nur mit dem aktuellen Arbeitsblatt.
Was mache ich falsch, bzw. wie kann ich es zum laufen bekommen?
Gruß, Korl