OssieMac,

Thanks for all of the suggestions! The last two did the trick just with a
copy and paste from your post. I am sure the first one would have helped me
in the right direction, had I been working on it at the time you posted it. I
do appreciate the "more professional" adjustment. I started this VBA with
just recording Macros and I am trying to clean them up and make them more
"general" with variables and such to make them work in other instances.

Thanks again!
--
JohnM


"OssieMac" wrote:

One last thing John,

Replace the following line of code
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

with the following 3 lines of code
With wrksMain
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

Reason for the above is that the line of code on its own will work while
PlDetails is the active sheet but the replacement code will allow you to have
any sheet active and still run the code for PlDetails. Basically more
professional.

My apologies for my previous omission.

--
Regards,

OssieMac