ну тогда так:
[vba]Код
Sub макросы()
u = Worksheets("Лист1").Buttons("Button 2").Caption
If u = "ВКЛ макросы" Then
Worksheets("Лист1").Buttons("Button 2").Caption = "ВЫКЛ макросы"
Else
Worksheets("Лист1").Buttons("Button 2").Caption = "ВКЛ макросы"
End If
Application.EnableEvents = Not Application.EnableEvents
MsgBox Application.EnableEvents
End Sub
[/vba]
Только непонятно для чего это может быть нужно, так как
[vba]Код
Application.EnableEvents
[/vba] не отключает и включает макросы, а отключает и включает события