Я пытаюсь сделать переключаемую вкладку, но во время компиляции VBA я получаю сообщение об ошибке

Question

Option Explicit

Sub TabPer()
With Sheet3
.Shapes("PerOn").Visible = msoCTrue
.Shapes("PerOff").Visible = msoFalse

.Shapes("BusOn").Visible = msoCFalse
.Shapes("BusOff").Visible = msoCTrue

.Range("A:M").EntireColumn.Hidden = False
.Range("N:Z").EntireColumn.Hidden = True


End With
End Sub

Sub TabBus()
With Sheet3
.Shapes("PerOn").Visible = msoCFalse
.Shapes("PerOff").Visible = msoTrue

.Shapes("BusOn").Visible = msoCTrue
.Shapes("BusOff").Visible = msoCFalse

.Range("A:M").EntireColumn.Hidden = True
.Range("N:Z").EntireColumn.Hidden = False

End With
End Sub