Preciso atribuir uma macro no botão, qualquer botão, e a macro seria esta:

Private Sub Worksheet_Activate()
    Dim rngSelection    As Range
    Dim lRow            As Long
    Dim lCol            As Long
       
        If TypeName(Selection) = "Range" Then Set rngSelection = Selection
        With ActiveWindow
            lRow = .ScrollRow
            lCol = .ScrollColumn
            .ScrollRow = 1
            .ScrollColumn = 1
            ActiveSheet.Range("A1:AH1").Select
            .Zoom = True
            .ScrollRow = lRow
            .ScrollColumn = lCol
        End With
       
        If Not rngSelection Is Nothing Then
            rngSelection.Select
            Set rngSelection = Nothing
        End If
       
    End Sub

Porem quando atribui-o não acontece nada, preciso que ao apertar o botão a tela do excel seja redimensionada