Hide unhide range

Or:

Sub HIDEPAX()
With Worksheets("CURRENT").Range("SCHEDULE").entirerow
    If .Hidden = True Then
        .Hidden = False
            Range("B27").Select
    Else
        .Hidden = True
            Range("B27").Select
    End If
End With
End Sub