My macro works fine until I hide a sheet that it needs to use. The code stops
at the last line below:

Dim r As Range
Sheets("Main Page").Select
If IsError(Range("B3").Value) = False Then GoTo DoubleClick
Set r = Range("D5:M5")
Sheets("Part Numbers").Select
<

Unhiding the sheet (Part Numbers) clears up the problem, but I would prefer
to have it hidden.

What's the trick?

Thanks.

Mike