You could just look to see if the row is hidden:
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.EntireRow.Hidden = False Then
Exit Do
End If
Loop
NoelH wrote:
>
> Hi
>
> I have created a subtotal grouping within the sheet. I have then condensed
> the sheet, thus only showing the subtotal heading and result. This works fine
> within a macro that was created for the purpose.
>
> Now I wish to move to the next visable cell and delete the conents. This
> works fine via the keyboard/mouse. I then down arrow to the next visibale
> cell and clear the contents. Down once again and repeat. However I would like
> it as a macro. When I look at the macro the absolute cell is in the range ().
> select. This will not work as the sheet of data changes at the subtotal will
> not always appear for the same location.
>
> Is there a way of slecting the next visable cell in the subtotal sheet, and
> what method is this?
>
> Mnay thanks in advance for any help.
>
> Regards Noel
--
Dave Peterson
Bookmarks