Sheet names in VBE
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!
|