Hiding Rows in a VBA macro

[sarcher]

Hi,

I want to set up a looping macro in VBA so that it looks at the first
column of the work book and if this is empty, the entire row is
hidden.

I have got the code below - the lopping works just cant get the correct
code for hidding the row.

SUB PRINTPAGE()

DIM MAIN AS WORKSHEET
DIM MROW AS LONG
SET MAIN = THISWORKBOOK.WORKSHEETS(\"WORKPLANNER\")
MROW = 8

DO UNTIL MROW = 352

IF MAIN.CELLS(MROW, 1) = \"\" THEN
-MAIN.CELLS(MROW, \"\") = \"TEST\"-ELSE
END IF
MROW = MROW + 1
LOOP
END SUB

also when i print a worksheet with a number of hidden rows is there a
way for Excel to ignore these completely.


Thanks

Steven

 

[Ardus Petus]

Sub PRINTPAGE()

Dim MAIN As Worksheet
Dim MROW As Long
Set MAIN = ThisWorkbook.Worksheets("WORKPLANNER")

For MROW = 8 To 352
If MAIN.Cells(MROW, 1).Value = "\" Then
MAIN.Rows(MROW).Hidden = True
End If
Next MROW

End Sub

HTH