Apologies Matt,
I responded correcting fb's code, not your original query
try
[VBA]Set rng = rng.Cells.SpecialCells(xlCellTypeVisible)
If rng.Row = 1 Then
MsgBox "Nothing found"
End If [/VBA]
Apologies Matt,
I responded correcting fb's code, not your original query
try
[VBA]Set rng = rng.Cells.SpecialCells(xlCellTypeVisible)
If rng.Row = 1 Then
MsgBox "Nothing found"
End If [/VBA]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Posting Permissions
Reply With Quote