Referencing Worksheet code name in the following code

[Guest]

I am opening oWB and need to reference a worksheet code name in oWB. I have
the following:

Set oRevisionWS = Nothing
On Error Resume Next
oWB.Activate
oRevisionWS = Revisions <~~~worksheet code name
On Error GoTo 0

I need to know how to define oRevisionWS to be the worksheet with the code
name Revisions.

Thanks,
Barb Reinhardt

 

[Jim Rech]

Sub a()
Dim WS As Worksheet
Dim oRevisionWS As Worksheet
For Each WS In Worksheets
If WS.CodeName = "Revisions" Then
Set oRevisionWS = WS
Exit For
End If
Next
If Not oRevisionWS Is Nothing Then MsgBox oRevisionWS.Name
End Sub


--
Jim
|I am opening oWB and need to reference a worksheet code name in oWB. I
have
| the following:
|
| Set oRevisionWS = Nothing
| On Error Resume Next
| oWB.Activate
| oRevisionWS = Revisions <~~~worksheet code name
| On Error GoTo 0
|
| I need to know how to define oRevisionWS to be the worksheet with the code
| name Revisions.
|
| Thanks,
| Barb Reinhardt

 

[Guest]

Thanks. This is one I just can't seem to remember how to do.