Sub Формат()
    Dim a&, apCall$
    
    a = InputBox("Укажите количество ячеек." & vbLf & _
                 "Например 20", "Сколько ячеек форматировать?")

    apCall = Application.Caller
    With Sheets("Лист1")
        If .DrawingObjects(apCall).Caption = "Перейти в текстовый формат" Then
            .DrawingObjects(apCall).Caption = "Отменить текстовый формат"
            .DrawingObjects(apCall).Font.ColorIndex = 5
            .Range("A38").Resize(a).NumberFormat = "@"
        Else
            .DrawingObjects(apCall).Caption = "Перейти в текстовый формат"
            .DrawingObjects(apCall).Font.ColorIndex = 3
            .Range("A38").Resize(a).NumberFormat = "General"
        End If
    End With

End Sub

Sub Кнопка1_Скрытьстолбцы()
    hideCols True
End Sub

Sub Кнопка2_Щелчок()
    hideCols False
End Sub

Sub hideCols(ByVal bln As Boolean)
    Dim col, arr
    arr = Array(3, 7, 11, 17, 21, 25, 29, 35, 39, 43, 47, 53, 57, 61, 65, 71, 79, 89, 93, 97, 101, 107, 111, 115)
    For Each col In arr
        Columns(col).Hidden = bln
    Next
End Sub

Private Sub CheckBox1_Click()
    Dim col, arr
    arr = Array(7, 11, 17, 21, 25, 29, 35, 39, 43, 47, 53, 57, 61, 65, 71, 79, 89, 93, 97, 101, 107, 111, 115)
    For Each col In arr
        Columns(col).Hidden = CheckBox1.Value
    Next
End Sub