need help with counting sheets with specific names plus adding sheets after them

hi I would need help with a comment to count the sheets with name starting with "wf" in a workbook and then add a growing sheet after last tabs with "wf". I have other sheets with other names within that workbook so the new growing sheet needs to come exactly after the last found one with "wf" used.
thank you so much
Agata

Something like

Code:

---

Dim lastWFWorksheet as Worksheet
Dim countOfWF as Long
Dim oneSheet as Worksheet

For each oneSheet in ThisWorkbook.Sheets
    If oneSheet.Name Like "wf*" Then
        countOfWF = countOfWF + 1
        Set lastWFWorksheet = oneSheet
    End If
Next oneSheet
' ...
MsgBox CStr(countOfWF) & " sheets names begin with wf (case sensitive)."
' ...
If countOfWF <> 0 Then
    ThisWorkbook.Sheets.Add after:=lastWFWorksheet
End If

---

Hi
thank you for help, however it gives me 0 count but the files starting with wf are there...

Welcome to the forum!

Mike's code worked fine for me. Did you notice that the search was case sensitive? In other words, wf5<>WF5.

You lost me with files starting with. You asked for sheets with names starting with "wf".

Are we talking worksheets, contained in the same workbook as the code.
Or are we talking about files, in a folder?

Mikes code: Case Insensitive

Code:

---

    If LCase(oneSheet.Name) Like "wf*" Then
'...
MsgBox CStr(countOfWF) & " sheets names begin with wf (case insensitive)."

---

Hallo,
thank you all for help! I used following code:

Code:

---

Dim WS As Worksheet, iCnt As Long
Dim WW As Worksheet
For Each WS In ActiveWorkbook.Worksheets
Debug.Print WS.Name
If InStr(1, Left(WS.Name, 2), "wf", vbTextCompare) > 0 Then
                myTotal = myTotal + 1
different version was 'If InStr(1, WS.Name, "wf", vbTextCompare) = 1 Then iCnt = iCnt + 1 - also working
'Set WW = WS
End If

---