Habe 150 Sheets, die ich mit dem Kopfzeilentext der JEWEILIGEN Zelle B3 beschriften möchte. Also Sheet für Sheet individuell.
Alle Sheets haben die gleiche Struktur.
Folgender Code übernimmt aber für alle Sheets nur den Inhalt aus Zelle B3 des zuletzt aktivierten Sheets.
Wie kann ich erreichen, dass jedes Sheet den Inhalt der des jeweiligen Sheets aus Zelle B3 übernimmt?
Sub KopfzeilenBeschriften()
Dim objWs As Worksheet
For Each objWs In Me.Worksheets
objWs.PageSetup.RightHeader = Range("B3").Value
Next objWs
End Sub
Viele Grüßeund Danke vorab
Dietmar aus Aachen