I have seen a couple of threads on how to create a macro to DELETE blank rows
but this is not what I'm looking for. I need to be able to simply HIDE the
blank rows. Does anyone know how to do this?

Try the below

Sub Hideemptyrows()
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountBlank(Rows(1)) = Columns.Count _
Then Rows(lngRow).Hidden = True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"JForsyth" wrote:

I have seen a couple of threads on how to create a macro to DELETE blank rows
but this is not what I'm looking for. I need to be able to simply HIDE the
blank rows. Does anyone know how to do this?

Thanks for writing back! Unfortunately it's not working...when I run it, the
rows don't become hidden...any suggestions?

"Jacob Skaria" wrote:

Try the below

Sub Hideemptyrows()
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountBlank(Rows(1)) = Columns.Count _
Then Rows(lngRow).Hidden = True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"JForsyth" wrote:

I have seen a couple of threads on how to create a macro to DELETE blank rows
but this is not what I'm looking for. I need to be able to simply HIDE the
blank rows. Does anyone know how to do this?

Oops. That was my mistake.Try the below

Sub Hideemptyrows()
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountBlank(Rows(lngRow)) = Columns.Count _
Then Rows(lngRow).Hidden = True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"JForsyth" wrote:

Thanks for writing back! Unfortunately it's not working...when I run it, the
rows don't become hidden...any suggestions?

"Jacob Skaria" wrote:

Try the below

Sub Hideemptyrows()
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountBlank(Rows(1)) = Columns.Count _
Then Rows(lngRow).Hidden = True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"JForsyth" wrote:

I have seen a couple of threads on how to create a macro to DELETE blank rows
but this is not what I'm looking for. I need to be able to simply HIDE the
blank rows. Does anyone know how to do this?

Thank You!!!! It works perfectly!

"Jacob Skaria" wrote:

Oops. That was my mistake.Try the below

Sub Hideemptyrows()
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountBlank(Rows(lngRow)) = Columns.Count _
Then Rows(lngRow).Hidden = True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"JForsyth" wrote:

Thanks for writing back! Unfortunately it's not working...when I run it, the
rows don't become hidden...any suggestions?

"Jacob Skaria" wrote:

Try the below

Sub Hideemptyrows()
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountBlank(Rows(1)) = Columns.Count _
Then Rows(lngRow).Hidden = True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"JForsyth" wrote:

I have seen a couple of threads on how to create a macro to DELETE blank rows
but this is not what I'm looking for. I need to be able to simply HIDE the
blank rows. Does anyone know how to do this?

Thank you!!! This works perfectly!!!

"Jacob Skaria" wrote:

Oops. That was my mistake.Try the below

Sub Hideemptyrows()
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountBlank(Rows(lngRow)) = Columns.Count _
Then Rows(lngRow).Hidden = True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"JForsyth" wrote:

Thanks for writing back! Unfortunately it's not working...when I run it, the
rows don't become hidden...any suggestions?

"Jacob Skaria" wrote:

Try the below

Sub Hideemptyrows()
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountBlank(Rows(1)) = Columns.Count _
Then Rows(lngRow).Hidden = True
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"JForsyth" wrote:

I have seen a couple of threads on how to create a macro to DELETE blank rows
but this is not what I'm looking for. I need to be able to simply HIDE the
blank rows. Does anyone know how to do this?

Sub row_hide()

Dim rng As Integer, i As Integer

rng = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To rng
Cells(i, "A").Select
x = Application.WorksheetFunction.Count(ActiveCell.Ent ireRow)
If x = 0 Then ActiveCell.EntireRow.Hidden = True
Next i
End Sub


On Jun 5, 6:08*pm, JForsyth
wrote:
I have seen a couple of threads on how to create a macro to DELETE blank rows
but this is not what I'm looking for. I need to be able to simply HIDE the
blank rows. Does anyone know how to do this?