Maybe

wksCodeName.Cells.Select

should be

wks.Cells.Select


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"ll" wrote in message
oups.com...
On May 7, 1:22 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
Sorry... I put in an extra dot...

CodeNameString = wks.CodeName

Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical +
vbDefaultButton2)
'Msg = CodeNameString
'MsgBox = (Msg)

If CodeNameString = "Sheet1" Then

LOldWb.Activate
I wksCodeName.Cells.Select
--
HTH...

Jim Thomlinson

"ll" wrote:
Thanks - I've altered my code to that below but I get the "Invalid
Qualifier" error.

-----

CodeNameString = wks.CodeName

Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical +
vbDefaultButton2)
'Msg = CodeNameString
'MsgBox = (Msg)

If CodeNameString = "Sheet1" Then

LOldWb.Activate
wks.CodeName.Cells.Select


Thanks
I've removed that extra dot, but now it is giving me an 'object
required' error message.