Private Sub Worksheet_SelectionChange(ByVal c As Range)
With Application: .EnableEvents = 0: .ScreenUpdating = 0: .Calculation = xlCalculationManual: End With
For Each c In Range("B3:B12")
If c <> "" And c.Offset(, 1) = "" Then c.Offset(0, 1).Select
If c = "" Then c.Offset(, 1) = ""
If c = "" Then c.Offset(, 2) = ""
Next
With Application: .EnableEvents = 1: .ScreenUpdating = 1: .Calculation = xlCalculationAutomatic: End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal c As Range)
With Application: .EnableEvents = 0: .ScreenUpdating = 0: .Calculation = xlCalculationManual: End With
For Each c In Range("B3:B12")
If c <> "" And c.Offset(, 1) = "" Then c.Offset(0, 1).Select
If c = "" Then c.Offset(, 1) = ""
If c = "" Then c.Offset(, 2) = ""
Next
With Application: .EnableEvents = 1: .ScreenUpdating = 1: .Calculation = xlCalculationAutomatic: End With
End Sub