Lijst met selecte groep werkbladen

[maaike2703]

Hallo allen,

Betreft Excel

Ik heb een stukje code gevonden op het forum waarbij er een lijst wordt gegenereerd van de gebruikte tabbladen. Tevens wordt een hyperlink ingesteld.
Hoe kan ik de code zo aanpassen dat alleen de tabbladen die beginnen met "P" in de lijst worden opgenomen?

De code

Code:
Private Sub Workbook_Open()
Dim i As Integer

For i = 1 To Sheets.Count
With Sheets("Lijst")
.Cells(i, 1).Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
End With
Next i

End Sub

Bedankt alvast voor jullie hulp!

Groet,
Maaike

 

[OctaFish]

Door er een IF omheen te zetten die de code pas uitvoert als LEFT(Sheets(i).Name,1) = "P".

 

[maaike2703]

Bedankt OctaFish!

Dit werkt:

Private Sub Workbook_Open()
Dim i As Integer

For i = 1 To Sheets.Count

If Left(Sheets(i).Name,1) = "P" then
With Sheets(i)
.Cells(i, 1).Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
End With
End If
Next i

End Sub