Buton atama ile ilgili bir problem

[istanbulcahan]

Buton atama ile ilgili bir problem var.Şöyleki kodlarım var. Karıştırdım. Nasıl yapılabilir.

' Makro1 Makro
' formülleri gizle
'
' Formülleri gizle kısa yolu: Ctrl+Shift+W
'
Sub hide()
Sheets("sayfa1").Select
Range("a1").Select
End Sub
    Application.Run "bordro.xlsm!Makro1"
    Sheets("hakem").Select
    Application.Run "bordro.xlsm!hide"
    Application.Run "bordro.xlsm!Makro1"
    Sheets("hakem").Select
End Sub



Sub gizle()
For i = 22 To 42
    If Cells(i, "B") = "" Then
        Rows(i).Hidden = True
    End If
Next
End Sub