If Ucase(Activesheet.Name) < Ucase("Sheet3") then Exit sub

at the top of the macro might do what you want

--
Regards,
Tom Ogilvy


"jobra" wrote in message
...
That's exactly what I mean Tom

"Tom Ogilvy" wrote:

Do you mean only work on a specific sheet?

--
Regards,
Tom Ogilvy

"jobra" wrote in message
...
Hi, How can I program a macro that it only will work in the active
worksheet?
Thanks in advance