codename and cell selection

L

ll

Hi,
I am needing help in the use of sheet codename in VBA. Currently,
I've successfully assigned the sheet codename to a string variable and
have tested it with a msgbox. I get error messages when the code gets
'below' the msgbox line (into the cell selection area.
Does anyone know what the proper syntax is for selecting all cells in
a sheet (referring to the sheet with its codename, rather than its
worksheet (tab) name)?
Thanks for your help,
Louis
----------

'\\\\CodeNameString = LCase(wks.CodeName)
CodeNameString = wks.CodeName

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

If CodeNameString = "Sheet1" Then
'\\\\LOldWb.Sheets(CodeNameString).Visible = True
'\\\\LOldWb.Sheets(CodeNameString).Select

LOldWb.Sheets(CodeNameString).Cells.Select
 
J

Jim Thomlinson

Since you have a sheet object use that...

'\\\\CodeNameString = LCase(wks.CodeName)
CodeNameString = wks.CodeName

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

If CodeNameString = "Sheet1" Then
'\\\\LOldWb.Sheets(CodeNameString).Visible = True
'\\\\LOldWb.Sheets(CodeNameString).Select

LOldWb.Activate
wks.CodeName.Cells.Select
 
L

ll

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
 
J

Jim Thomlinson

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
wksCodeName.Cells.Select
 
L

ll

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


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

Bob Phillips

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)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top