Maybe Instead of using the

Worksheets("Sheet1")

try:

Activesheet



wrote in message
oups.com...
Fantastic that works great, the only problem I have is this code is
used in six sheets all with different titles. I'm not sure how to write
this into the code.