If ActiveCell.Value < "" Then
Activecell.Offset(0,1).Select
End If

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

wrote in message
ups.com...
Hi

What my macro should do is move to the next cell to the right when the
current cell is occuiped.

sample of my data
A1 A2
C1