Try this... !!
Sub Test()
Range("B2").Select
Do
If ActiveCell.Value = "" Then Exit Do
ActiveCell.Offset(0, 3).Activate
Loop
End Sub
--
FORUM RULES (934+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, For
Try this :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Cells.Count = 1 Then
If Target.Value <> "" Then Target.Offset(, 3).Activate
End If
End Sub
On 12/14/11, dguillett1 wrote:
> right click sheet tab>view code>copy/paste this>save fil
right click sheet tab>view code>copy/paste this>save file as .xls or .xlsm to
allow macros.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub
Target.Offset(, 3).Select
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
From: he
