Excel VBA hide rows based on cell value update

[Stuepef]

I have a code that looks at Sheet4 cell A11 and if that cell is blank, hide the entire sheet. If cell A11 is NOT blank, then leave the the sheet visible, but I am looking to update this part of the code. Details:

If Sheet4 cell A11 is blank, then hide the sheet.

If Sheet2 cell A11 is not blank, go through range A11:A60 and hide every row thats blank.

Current Code:

Sub HideBasePlanTab()
Dim oneSheet As Variant

For Each oneSheet In Array(Sheet4)
    With oneSheet
        .Visible = IIf(.Range("A11") = "", xlSheetHidden, xlSheetVisible)
    End With
Next oneSheet
End Sub

Thank you!