How do I activate the first worksheet?

[Guest]

I want to activate the first worksheet out of x number in a workbook.
The sheet names will vary every time, so I was wondering how you select the
first sheet using generic code.
Thanks, Mel

 

[Keith74]

Worksheets(1).Activate

hth

keith

 

[Guest]

Excellent, and so simple! Cheers Keith.
Is there a way of activating the last sheet again? There may be any number
of sheets so I guess its not Worksheets(20 or whatever).Activate

Thanks, Mel

 

[Guest]

You might try:

Sub LastSht()
Dim CntSheets As Long

'Activate last worksheet in the workbook
With Application
CntSheets = .Sheets.Count - .Charts.Count
.Worksheets(CntSheets).Activate
End With

End Sub

 

[Guest]

Thanks Chad, that worked great

You might try:

Sub LastSht()
Dim CntSheets As Long

'Activate last worksheet in the workbook
With Application
CntSheets = .Sheets.Count - .Charts.Count
.Worksheets(CntSheets).Activate
End With

End Sub