Prev: active control box name on worksheet
Next: Sort tabs numerically
From: Peter T on 1 Jun 2010 15:11

"Jacob Skaria" <JacobSkaria(a)discussions.microsoft.com> wrote in message
news:1E2085E6-4398-
>
> Dim ws As Worksheet, strSheetCodeName As String
> strSheetCodeName = "Sheet1"
> For Each ws In Worksheets
> If ws.CodeName = strSheetCodeName Then ws.Select: Exit For
> Next
>
> --
> Jacob (MVP - Excel)

Yep, that's the way I'd do it.

Regards,
Peter T


From: GS on 1 Jun 2010 16:13
Makelei explained on 6/1/2010 :
> Hi,
> XP and Excel2003.
>
> What might be the reason why this is not working (Sheet2 is codename):
> Sheet2.Select
>
> I have tried all possibilities that I can imaging, but no. I have another
> file and selecting sheet with code name (Sheet4.Select) funtions just fine.
>
> Now using code:
> Workbooks.Open Filename:=Doc2
> ActiveWorkbook.Sheet2.Select
>
> Opens Doc2 excel file just fine, but does not open the sheet.
>
> Thanks in advance
> MakeLei

Here's a reusable function I use that returns the Worksheet.Name from
any workbook given its Worksheet.CodeName.

Function Get_SheetTabName(CodeName As String, Optional Wkb As Workbook)
As String
Dim Wks As Worksheet
If Wkb Is Nothing Then Set Wkb = ActiveWorkbook
For Each Wks In Wkb.Worksheets
If Wks.CodeName = CodeName Then _
Get_SheetTabName = Wks.Name: Exit Function
Next
End Function

regards,

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc


First  |  Prev  | 
Pages: 1 2
Prev: active control box name on worksheet
Next: Sort tabs numerically