Really quick one

[Beer]

Hi

Could someone please tell me what i need to add to this macro so that it will hide the rows within the range where column P is blank rather than the whole row having to be blank?

Thanks in advance




Sub HideBlanks()
'
' HideBlanks Macro
ActiveWindow.SmallScroll ToRight:=-3
ActiveWindow.SmallScroll Down:=-9
Rows("1:1").Select
Selection.EntireRow.Hidden = True
Range("f18:ad129").Select
Selection.Font.Bold = True
Selection.Font.Bold = False

End Sub

 

[Trevor G]

try this

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> hideme()<br><SPAN style="color:#00007F">Dim</SPAN> cell <SPAN style="color:#00007F">As</SPAN> Range<br>Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>Range("P1").Activate<br><SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> cell <SPAN style="color:#00007F">In</SPAN> Range("P1:P129")<br><SPAN style="color:#00007F">If</SPAN> cell.Value = "" <SPAN style="color:#00007F">Then</SPAN><br>cell.EntireRow.Hidden = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">Next</SPAN><br>Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[Beer]

Thank you Trevor!