You don't have a worksheet in the activeworkbook named Audit Results. If
you did, you wouldn't get the error. If you didn't think you did you
wouldn't have written the code - so you need to look closer. Is there an
extra space somewhere - on either end or perhaps an extra spaced separating
the two words.

--
Regards,
Tom Ogilvy

"ExcelMonkey" wrote in message
...
I am getting an Subscript Out of Range Error on this line
of code:

Set sh1 = ActiveWorkbook.Sheets("Audit Results")

Why is this happening?

Thanks