In allen Blättern Logo in Kopfzeile

Option Explicit
Private Sub Grafik_in_Kopfzeile()
Dim WSheet As Worksheet
' .Filename: Zellenbezug - Arbeitsblatt '*' Zelle 'B2' bzw. 'B4'
' .Height: Zellenbezug / Grafikhöhe in Pts (1/72 Zoll)
For Each WSheet In ActiveWorkbook.Worksheets
With WSheet.PageSetup
.Filename = [#!B2]
.LockAspectRatio = True
.Height = [#!B4]
End With
WSheet.PageSetup.RightHeader = "&G"
Next WSheet
End Sub