サンプルマクロは、１枚目のシートに配置した５つのコマンドボタンの表題を変更します。

Public myFlag As Boolean

Sub Sample()

    Dim i As Byte, myCap As String
    
    For i = 1 To 5
        If myFlag Then myCap = "ON" & i _
            Else myCap = "OFF" & i
        Sheets(1).OLEObjects("CommandButton" & i) _
            .Object.Caption = myCap
    Next
    
    myFlag = Not myFlag

End Sub