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

[mikerickson]

Something like

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