[VBA]Worksheets(i).Range("A3").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop[/VBA]

I wrote code for search for empty cell like this but i get an error