Barryj
04-26-2012, 08:39 AM
I have been trying to adjust this macro to only work on 2 columns, E10:E24 and H10:H24, I have tried altering the range but it always bugs out.
any help much appreciated.
Private Sub Worksheet_Change(ByVal Target As Range)
UserInput = Target.Value
If UserInput > 1 Then
NewInput = " " & Left(UserInput, Len(UserInput) - 2) & " :" & Right(UserInput, 2)
Application.EnableEvents = False
Target = NewInput
Application.EnableEvents = True
End If
End Sub
any help much appreciated.
Private Sub Worksheet_Change(ByVal Target As Range)
UserInput = Target.Value
If UserInput > 1 Then
NewInput = " " & Left(UserInput, Len(UserInput) - 2) & " :" & Right(UserInput, 2)
Application.EnableEvents = False
Target = NewInput
Application.EnableEvents = True
End If
End Sub