Type Mismatch

[robfo0]

Hi again,

I have the following code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 1 Then
If Target = "x" Or Target = "X" Then
Target.Offset(0, 7) = Date
Target.Offset(0, = Application.UserName
Else
Target.Offset(0, 7) = ""
Target.Offset(0, = ""
End If
End If

End Sub

Which populates the Date and username when a user puts an x in column 1.

This works fine, but i also have a macro that cuts and pastes rows and clears the x. When i run the macro, i get a type mismatch error. Im sure its because the macro is clearing the x. How do i get around this? can i maybe disable the worksheeet_change when i run my other macro?

Thanks

Note, those are not really faces, its supposed to be 8 and ) , heh

[ This Message was edited by: robfo0 on 2002-03-10 19:05 ]

[Ivan F Moala]

In the other routine put

Application.enableevents = False

before it starts THEN @ the end of the routine
Put in
Application.enableevents=true


This will disable the events incase your routine
IS ?? within the range.

Ivan

[robfo0]

Thanks! works perfectly