In the project explorer, if your entries look like

A (Sheet1)
B (Sheet2)
C (Sheet3)

so that A, B and C are the codenames of the sheet.

Sub AAAABB()
Dim VC As Object
Dim i As Long
Dim varr(1 To 3)
i = 0
For Each VC In ThisWorkbook.VBProject.VBComponents
If VC.Type = vbext_ct_Document Then
Select Case LCase(VC.Name)
Case "a", "b", "c"
i = i + 1
varr(i) = VC.Properties("Name").Value
If i = 3 Then Exit For
End Select
End If
Next
Worksheets(varr).Select
Worksheets(varr(1)).Activate
End Sub

--
Regards,
Tom Ogilvy
Steve wrote in message
news:3fac1008$0$14371$afc38c87@...
Hi. I have the following code:

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate

I have named my sheets in the VBE to A, B and C. How do I rewrite the
above
code using the VBE names?

Thanks!