code for command button not work
Hi,
every time compile code get error:
compile error:
procedure declaration does not match description of event or procedure
having the same name
code in commmandbutton1:
Private Sub CommandButton1_Click(ByVal target As Range)
Dim Temp As Variant
If Target.Column = 1 Then
Application.EnableEvents = False
Temp = Split(Target.Value, "^")
Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Temp(1)
Target.Offset(0, 2).Value = Left(Temp(2), Len(Temp(2)) - 1)
Application.EnableEvents = True
End If
End Sub
thanks
|