Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Codename passing
Hi All
I have the codenames for various worksheets stored as strings in another worksheet. How can I assign each sheet to an object? e.g. If I have the string "myCodeName" which is the codename for one of the worksheets, and want to assign it to a worksheet object Dim wSh as Worksheet Set wSh = ?? TIA -- Regards, Nigel |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Codename passing
Set wSh = sheets("myCodeName")
"Nigel" wrote: Hi All I have the codenames for various worksheets stored as strings in another worksheet. How can I assign each sheet to an object? e.g. If I have the string "myCodeName" which is the codename for one of the worksheets, and want to assign it to a worksheet object Dim wSh as Worksheet Set wSh = ?? TIA -- Regards, Nigel |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Codename passing
Ah, your other post makes more sense now. You need to loop sheets to find
it. Try the following, rename your sheet that has the codename Sheet2 Sub test() Dim res As Long Dim s$ Dim ws As Worksheet s = "Sheet2" ' the codename res = WsFromCodeName(s, ActiveWorkbook, ws) If res = 1 Then MsgBox ws.Name ElseIf res = 2 Then MsgBox "can't return all codenames" Else MsgBox s & " not found" End If End Sub Function WsFromCodeName(ByVal sCodeName As String, _ ByVal wb As Workbook, _ ByRef ws As Worksheet) As Long Dim s As String For Each ws In wb.Worksheets s = ws.CodeName If s = "" Then ' sheet inserted since last saved WsFromCodeName = 2 ElseIf s = sCodeName Then WsFromCodeName = 1 Exit For End If Next End Function Regards, Peter T "Nigel" wrote in message ... Hi All I have the codenames for various worksheets stored as strings in another worksheet. How can I assign each sheet to an object? e.g. If I have the string "myCodeName" which is the codename for one of the worksheets, and want to assign it to a worksheet object Dim wSh as Worksheet Set wSh = ?? TIA -- Regards, Nigel |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
string to codename | Excel Discussion (Misc queries) | |||
CodeName Referencing Help | Excel Programming | |||
Codename conflict | Excel Programming | |||
codename help | Excel Programming | |||
Worksheet codename | Excel Programming |