want to advanced to cell on the right but my code won't work
 

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

want to advanced to cell on the right but my code won't work
 

Sub CellToRight()
'moves to the right if active cell is empty
ActiveCell.Select
If ActiveCell = "" Then
MsgBox "Empty"
' your code
Else
MsgBox "Move to the next cell to the right"
ActiveCell.Offset(0, 1).Select
End If

End Sub

" wrote:

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