Problem with my VBA

[max4523]

Could someone tell me what I'm doing wrong. I'm trying to have cells solve for the other and I'm failing.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column < 1 And Target.Column > 3 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Column
Case Is = 1
If Target.Offset(0, -1) = "" Then
Application.EnableEvents = True
Exit Sub
Else: Target.Offset(0, 1) = (Target * 9.5)
End If
Case Is = 2
If Target.Offset(0, -2) = "" Then
Application.EnableEvents = True
Exit Sub
Else: Target.Offset(0, -2) = (Target / 9.5)
End If
End Select
Application.EnableEvents = True
End Sub

 

[Special-K99]

Could it be this (Im no VBA expert)

If Target.Column < 1 And Target.Column > 3 Then Exit Sub

How can something be less than 1 AND greater than 3?
Shouldn't this be OR instead of AND?