How to fix Run time Error 9

[krishnakuma6]

Dear Experts
I am facing "Run time error 9 Script Out of Range" when I open xlsm files. I am using this below code in sheet Tab named as "Project".How to fix that rectify that?

Private Sub Worksheet_Calculate()
If Range("I1").Value = "True" Then
    Worksheets("Dashboard").Range("R10").EntireRow.Hidden = False
ElseIf Range("I1").Value = "False" Then
    Worksheets("Dashboard").Range("R10").EntireRow.Hidden = True
End If
If Range("J1").Value = "True" Then
    Worksheets("Dashboard").Range("A3, A15:A19").EntireRow.Hidden = False
    Worksheets("ICT").Range("k:k").EntireColumn.Hidden = False
    Worksheets("Vehicle").Range("O:O").EntireColumn.Hidden = False
ElseIf Range("J1").Value = "False" Then
    Worksheets("Dashboard").Range("A3,A15:A19").EntireRow.Hidden = True
    Worksheets("ICT").Range("k:k").EntireColumn.Hidden = True
    Worksheets("Vehicle").Range("O:O").EntireColumn.Hidden = True
End If
End Sub