Another way

Personally, if there were a indicator on the worksheet (e.g. 'If ws.Range("A1") = "SOMETHING"') that you could trigger off of, it would be more flexible since you wouldn't need to keep editing the list. What happens if you add Sheet14 or rename Sheet9?

Option Explicit
Sub hideEmptyRows2()
    Dim v As Variant
    
    Application.ScreenUpdating = False
    For Each v In Array("SHEET5", "SHEET6", "SHEET7", "SHEET8", "SHEET9", "SHEET10", "SHEET11", "SHEET12", "SHEET13")
        On Error Resume Next    '   in case there are no blank cells
        Worksheets(v).Range("A3:A120").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
        On Error GoTo 0
    Next
    Application.ScreenUpdating = True
End Sub



Sub hideEmptyRows2a()
    Dim ws As Worksheet
    
    
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Range("A1") = "SOMETHING" Then
            On Error Resume Next    '   in case there are no blank cells
            ws.Range("A3:A120").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
            On Error GoTo 0
        End If
    Next
    Application.ScreenUpdating = True
End Sub