Recent content by simonking

This appears to work:- Sub findcell() For Each x In Range("a1", "a10") If x.Value > 0 Then Cells(x.Row + 1, x.Column + 1).Activate Exit For End If Next End Sub :)