Change event fails to work

In the change event handler I call a simple function that removes unwanted
characters from a string value, then returns the string. Simple huh? Well
I'm using Excel 2000 and this fails to work. Any reason why?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = CheckString(Target.Value)
Application.EnableEvents = True
End Sub


Thanks.
Mark

On Thu, 10 Nov 2005 01:57:09 GMT, "Mark F" <nonefound@nodomain.com> wrote:

>In the change event handler I call a simple function that removes unwanted
>characters from a string value, then returns the string. Simple huh? Well
>I'm using Excel 2000 and this fails to work. Any reason why?
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>Application.EnableEvents = False
> Target.Value = CheckString(Target.Value)
>Application.EnableEvents = True
>End Sub
>
>
>Thanks.
>Mark
>

Assuming that there is no error in your CheckString function, I would guess
that in the debugging process you stopped the macro from running with
Application.EnableEvents still = False.

It's handy to have a sub to re-enable the events for this scenario.

Sub foo()
Application.EnableEvents=True
end sub


--ron

Ron Rosenfeld wrote:
> On Thu, 10 Nov 2005 01:57:09 GMT, "Mark F" <nonefound@nodomain.com> wrote:
>
>
>>In the change event handler I call a simple function that removes unwanted
>>characters from a string value, then returns the string. Simple huh? Well
>>I'm using Excel 2000 and this fails to work. Any reason why?
>>
>>Private Sub Worksheet_Change(ByVal Target As Range)
>>Application.EnableEvents = False
>> Target.Value = CheckString(Target.Value)
>>Application.EnableEvents = True
>>End Sub
>>
>>
>>Thanks.
>>Mark
>>
>
>
> Assuming that there is no error in your CheckString function, I would guess
> that in the debugging process you stopped the macro from running with
> Application.EnableEvents still = False.
>
> It's handy to have a sub to re-enable the events for this scenario.
>
> Sub foo()
> Application.EnableEvents=True
> end sub
>
>
> --ron

I used "on error goto" to trap any errors, then I reset events and
return. Works now, thanks Ron!

>>
>> Assuming that there is no error in your CheckString function, I would guess
>> that in the debugging process you stopped the macro from running with
>> Application.EnableEvents still = False.
>>
>> It's handy to have a sub to re-enable the events for this scenario.
>>
>> Sub foo()
>> Application.EnableEvents=True
>> end sub
>>
>>
>> --ron
>
>I used "on error goto" to trap any errors, then I reset events and
>return. Works now, thanks Ron!

Happy to help. Glad you have it working now.

Best wishes,

--ron