Hi all,

I have this code that works really well for hiding rows when they do
not have anything in. However the rows I need to hide all have
formulas in as they pull data from other worksheets and therefore this
code doesnt work. Does anyone know how i can get over this?

The code i currently have is this:

Sub Hide_Print_Unhide()
Dim rw As Long
Application.ScreenUpdating = False

With Sheets("Sheet1")
For rw = 1 To 30
If Application.WorksheetFunction.CountA( _
.Cells(rw, 1).Range("A1:G1")) = 0 Then _
.Rows(rw).Hidden = True
Next rw
.PrintPreview
.Range("A1:A30").EntireRow.Hidden = False
End With

Application.ScreenUpdating = True
End Sub


--
DHallam
------------------------------------------------------------------------
DHallam's Profile: http://www.excelforum.com/member.php...o&userid=25253
View this thread: http://www.excelforum.com/showthread...hreadid=544050

Hi

You could try changing the test for the blank lines to

If Application.WorksheetFunction.CountBlank( _
Cells(rw, 1).Range("A1:G1")) = 7 Then _
Rows(rw).Hidden = True


--
Regards

Roger Govier


"DHallam" wrote
in message ...

Hi all,

I have this code that works really well for hiding rows when they do
not have anything in. However the rows I need to hide all have
formulas in as they pull data from other worksheets and therefore this
code doesnt work. Does anyone know how i can get over this?

The code i currently have is this:

Sub Hide_Print_Unhide()
Dim rw As Long
Application.ScreenUpdating = False

With Sheets("Sheet1")
For rw = 1 To 30
If Application.WorksheetFunction.CountA( _
Cells(rw, 1).Range("A1:G1")) = 0 Then _
Rows(rw).Hidden = True
Next rw
PrintPreview
Range("A1:A30").EntireRow.Hidden = False
End With

Application.ScreenUpdating = True
End Sub


--
DHallam
------------------------------------------------------------------------
DHallam's Profile:
http://www.excelforum.com/member.php...o&userid=25253
View this thread:
http://www.excelforum.com/showthread...hreadid=544050