Sheet sorting question

Actually, what I am really looking for is how to make the first sheet the active sheet after sorting and then activating random sheets.
The first sheet name will vary each time a new workbook is created.

Thanks,

G.

Hi G-Man

This will do it.

Sub TryThis()
Dim ShtNum As Integer, ShtCount As Integer

Sheets(1).Activate
ShtCount = Sheets.Count
Randomize 'Initialize random-number generator.
'Random Number between 1 and Sheets.Count
ShtNum = Int((ShtCount * Rnd) + 1)
Sheets(ShtNum).Activate

End Sub

Dave

OzGrid Business Applications