Listing Worksheet Names

[wjsok85]

Hi -

I use to following code to list worksheet names, but I was wondering if anyone could provide a little insight into how one may be able to edit the code to list only the worksheet names between to sheets?

Private Sub Worksheet_Activate()
Dim NumSheets
NumSheets = Worksheets.Count
Dim i
For i = 1 To NumSheets
Range("A" & i) = Sheets(i).Name
Next i
End Sub