Help please Run-time error 9

[slecna]

I started to learn macros. Only one month ago.
I have to finish one form today for my boss but I have run-time error 9
and a cannot find the mistake.

Please can you help me?

Private Sub a_Click()
Dim sheet_static, sheet_ifs As String

sheet_staticdata = "Static Data Form"
sheet_ifs = "IFS Input"


If a Then
        
    Sheets(sheet_staticdata).Range("22:28").Select
        Selection.EntireRow.Hidden = False
        
        Worksheets(sheet_ifs).Activate
        
        'Sheets(sheet_ifs).Rows("12:18").Select
        Sheets(sheet_ifs).Range("12:18").Select
        Selection.EntireRow.Hidden = False
        Worksheets(sheet_staticdata).Activate
 
    Else
        
        Worksheets(sheet_ifs).Activate
        Sheets(sheet_ifs).Range("12:18").Select
        Selection.EntireRow.Hidden = True
        Worksheets(sheet_staticdata).Activate
        
        Rows("22:28").Select
        Selection.EntireRow.Hidden = True
        

End If
End Sub





Private Sub b_Click()



    If b Then
      Sheets(sheet_staticdata).Range("32:38").Select
        Selection.EntireRow.Hidden = False
        
        Worksheets(sheet_ifs).Activate
        
        'Sheets(sheet_ifs).Rows("19:24").Select
        Sheets(sheet_ifs).Range("19:24").Select
        Selection.EntireRow.Hidden = False
        Worksheets(sheet_staticdata).Activate
 
    Else
        
        Worksheets(sheet_ifs).Activate
        Sheets(sheet_ifs).Range("19:24").Select
        Selection.EntireRow.Hidden = True
        Worksheets(sheet_staticdata).Activate
        
        Rows("32:38").Select
        Selection.EntireRow.Hidden = True
        
     
End If
End Sub

Private Sub c_Click()

    If c Then
       Sheets(sheet_staticdata).Range("42:44").Select
        Selection.EntireRow.Hidden = False
        
        Worksheets(sheet_ifs).Activate
        
        'Sheets(sheet_ifs).Rows("25:27").Select
        Sheets(sheet_ifs).Range("25:27").Select
        Selection.EntireRow.Hidden = False
        Worksheets(sheet_staticdata).Activate
 
    Else
        
        Worksheets(sheet_ifs).Activate
        Sheets(sheet_ifs).Range("25:27").Select
        Selection.EntireRow.Hidden = True
        Worksheets(sheet_staticdata).Activate
        
        Rows("42:44").Select
        Selection.EntireRow.Hidden = True
     
End If
End Sub



Private Sub d_Click()

    If d Then
     Sheets(sheet_staticdata).Range("48:49").Select
        Selection.EntireRow.Hidden = False
        
        Worksheets(sheet_ifs).Activate
        
        'Sheets(sheet_ifs).Rows("28:29").Select
        Sheets(sheet_ifs).Range("28:29").Select
        Selection.EntireRow.Hidden = False
        Worksheets(sheet_staticdata).Activate
 
    Else
        
        Worksheets(sheet_ifs).Activate
        Sheets(sheet_ifs).Range("28:29").Select
        Selection.EntireRow.Hidden = True
        Worksheets(sheet_staticdata).Activate
        
        Rows("48:49").Select
        Selection.EntireRow.Hidden = True
     
End If
End Sub

Private Sub e_Click()

    If e Then

    Sheets(sheet_staticdata).Range("53:59").Select
        Selection.EntireRow.Hidden = False
        
        Worksheets(sheet_ifs).Activate
        
        'Sheets(sheet_ifs).Rows("30:48").Select
        Sheets(sheet_ifs).Range("30:48").Select
        Selection.EntireRow.Hidden = False
        Worksheets(sheet_staticdata).Activate
 
    Else
        
        Worksheets(sheet_ifs).Activate
        Sheets(sheet_ifs).Range("30:48").Select
        Selection.EntireRow.Hidden = True
        Worksheets(sheet_staticdata).Activate
        
        Rows("53:59").Select
        Selection.EntireRow.Hidden = True
     
     
End If
End Sub


Private Sub f_Click()

    If f Then

   Sheets(sheet_staticdata).Range("63:78").Select
        Selection.EntireRow.Hidden = False
        
        Worksheets(sheet_ifs).Activate
        
        'Sheets(sheet_ifs).Rows("49:64").Select
        Sheets(sheet_ifs).Range("49:64").Select
        Selection.EntireRow.Hidden = False
        Worksheets(sheet_staticdata).Activate
 
    Else
        
        Worksheets(sheet_ifs).Activate
        Sheets(sheet_ifs).Range("49:64").Select
        Selection.EntireRow.Hidden = True
        Worksheets(sheet_staticdata).Activate
        
        Rows("63:78").Select
        Selection.EntireRow.Hidden = True
     
End If
End Sub


Private Sub g_Click()

    If g Then
    Sheets(sheet_staticdata).Range("82:91").Select
        Selection.EntireRow.Hidden = False
        
        Worksheets(sheet_ifs).Activate
        
        'Sheets(sheet_ifs).Rows("65:73").Select
        Sheets(sheet_ifs).Range("65:73").Select
        Selection.EntireRow.Hidden = False
        Worksheets(sheet_staticdata).Activate
 
    Else
        
        Worksheets(sheet_ifs).Activate
        Sheets(sheet_ifs).Range("65:73").Select
        Selection.EntireRow.Hidden = True
        Worksheets(sheet_staticdata).Activate
        
        Rows("82:91").Select
        Selection.EntireRow.Hidden = True
     
End If
End Sub


Private Sub h_Click()

       If h Then
        Sheets(sheet_staticdata).Range("95:106").Select
        Selection.EntireRow.Hidden = False
        
        Worksheets(sheet_ifs).Activate
        
        'Sheets(sheet_ifs).Rows("74:85").Select
        Sheets(sheet_ifs).Range("74:85").Select
        Selection.EntireRow.Hidden = False
        Worksheets(sheet_staticdata).Activate
 
    Else
        
        Worksheets(sheet_ifs).Activate
        Sheets(sheet_ifs).Range("74:85").Select
        Selection.EntireRow.Hidden = True
        Worksheets(sheet_staticdata).Activate
        
        Rows("95:106").Select
        Selection.EntireRow.Hidden = True
        

End If
End Sub