in der With-Zeile kommt Fehler 5, warum bzw. wie muss der Code umgeschrieben werden? Die auskommentierte For-Schleife läuft sauber durch.
Sub nn()
'Dim c
'For Each c In CommandBars("Worksheet Menu Bar").Controls("&Datei").Controls
' MsgBox c.Caption
'Next c
With CommandBars("Worksheet Menu Bar").Controls("&Datei").Controls("Seitenansi&ht")
'MsgBox .OnAction
.OnAction = "tttt"
End With
End Sub
Danke ^ Gruß
Reinhard