Macro to hide rows based on cell content

[Shadkng]

I need to hide rows based on a cell value if blank or has a "-". I grabbed the code below online but I assume it can be improved. I do want the sheet name specified because I run this for several sheets under a global macro as well. Any help is appreciated. Thanks

Sub CLUTCH_BUILD_HIDEROWS()
Sheets("CLUTCH BUILD").Activate
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("B9:B18")
If xRg.Value = "" Or xRg.Value = "-" Then
xRg.EntireRow.Hidden = True

Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub

 

[mumps]

Try:

Sub CLUTCH_BUILD_HIDEROWS()
    Dim x As Long
    Application.ScreenUpdating = False
    For x = 10 To 2 Step -1
    If Sheets("CLUTCH BUILD").Cells(x, 2) = "" Or Sheets("CLUTCH BUILD").Cells(x, 2) = "-" Then
            Sheets("CLUTCH BUILD").Rows(x).EntireRow.Hidden = True
        Else
            Sheets("CLUTCH BUILD").Rows(x).EntireRow.Hidden = False
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

 

[Osvaldo Palmeiro]

Try:

Sub CLUTCH_BUILD_HIDEROWS()
 Dim xRg As Long
  Application.ScreenUpdating = False
   With Sheets("CLUTCH BUILD")
    .Rows("9:18").Hidden = False
     For xRg = 9 To 18
      .Rows(xRg).Hidden = .Cells(xRg, 2) = "" Or .Cells(xRg, 2) = "-"
     Next xRg
   End With
  Application.ScreenUpdating = True
End Sub

 

[Shadkng]

I don't see a range of cells specified. It should only hide rows based on the criteria in cell range B9 to B18.

 

[mumps]

The macros are based on row numbers rather than ranges. I made a slight error in my previous macro.

Sub CLUTCH_BUILD_HIDEROWS()
    Dim x As Long
    Application.ScreenUpdating = False
    For x = 18 To 9 Step -1
    If Sheets("CLUTCH BUILD").Cells(x, 2) = "" Or Sheets("CLUTCH BUILD").Cells(x, 2) = "-" Then
            Sheets("CLUTCH BUILD").Rows(x).EntireRow.Hidden = True
        Else
            Sheets("CLUTCH BUILD").Rows(x).EntireRow.Hidden = False
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

 

[Shadkng]

Thanks it works fine now. So I see that the x refers to the row and the 2 is the column?

What would the code be to unhide those columns in a separate macro?

 

[mumps]

Try:

Sub UnhideRows()
    Sheets("CLUTCH BUILD").Cells.EntireRow.Hidden = False
End Sub