Hide Rows without a value

[riedyp]

Hello,

I am trying to write a code that:
Looks at cells in column A from rows 9:100
-If a cell does not have an integer then that cells entire row is to be hidden.
This is what I have so far. Thank you.

Private Sub CommandButton7_Click() '''''''''''''''''''''' Question Rollup
Dim x As Variant
For x = 9 To 100
If Cells(X,1)="" Then
Cells(X,1).hidden =true
Next X
End Sub

 

[DanteAmor]

How about

Private Sub CommandButton7_Click()
  Dim x As Variant
  Application.ScreenUpdating = False
  For x = 9 To 100
    If Cells(x, 1) = "" Then
      Rows(x).Hidden = True
    End If
  Next x
End Sub

 

[Fluff]

How about just

Range("A8:A100").AutoFilter 1, "<>", , , 0

 

[riedyp]

That works but then this other code i have no longer works to undo those hidden rows.
Is there a reverse for the code you sent me?
Range("A8:A100").AutoFilter 1, "<>", , , 0

Private Sub CommandButton5_Click() ''''''''''''''''''''' Enter Editing Mode
Dim myGB As GroupBox    'Hide All Group Boxes
For Each myGB In ActiveSheet.GroupBoxes
myGB.Visible = True
Next myGB

Dim myOB As OptionButton            'Show All Option Buttons
For Each myOB In ActiveSheet.OptionButtons
    myOB.Visible = msoTrue
Next myOB

Rows("9:100").Hidden = False
End Sub

 

[Fluff]

Yes, you can use

Range("A8:A100").AutoFilter

 

[riedyp]

Thank you!

 

[Fluff]

Glad we could help & thanks for the feedback.