referencing a sheet in VB

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

1) In VB, how do I list all sheet names on one worksheet?

2) In VB, how do I list all sheets that start with a similar name (e.g., QTD) on one worksheet

I'd really appreciate any and all help!!!!
 
Mary Agnes

try these for ideas:

Sub ListWorksheets()
Dim ws As Worksheet
Dim i As Long
For Each ws In Worksheets
i = i + 1
Range("A" & i) = ws.Name
Next ws
End Sub

Sub ListWorksheetsQTD()
Dim ws As Worksheet
Dim i As Long
For Each ws In Worksheets
If UCase(Left(ws.Name, 3)) = "QTD" Then
i = i + 1
Range("A" & i) = ws.Name
End If
Next ws
End Sub

Regards

Trevor
 
Mary,

Workbooks contain worksheets.

Sub test()
Dim wks As Worksheet, i As Long

i = 1
For Each wks In Worksheets
Sheet1.Cells(i, 1).Value = wks.Name
i = i + 1
Next
End Sub
 
Trevor & Rob:
Thanks so much for your help! I was able to combine both solutions into my program and it was EXACTLY what I was looking for.

Can you recommend a good reference book for using VB 6.0?
Thanks,
Mary Agnes :)
 
Back
Top