hi,
instead of If Sht.name = "TestCases*" Then nr = nr + 1
use If Left$(Sht.name,9) = "TestCases*" Then nr = nr + 1

hth
Heiko

(jC!) wrote:

hi all,

find following my Sub:

Sub countTestCases()
Dim Sht As Object
Dim nr As Integer
nr = 0
For Each Sht In ActiveWorkbook.Sheets
If Sht.name = "TestCases*" Then nr = nr + 1
Next
MsgBox nr
End Sub

this is simply to count how many Worksheets starting with the name
"TestCases" are in the current Workbook. for example there might be
"TestCases0",
"TestCases5" and
"TestCases14",
if i execute above routine all i end up with is 0 for nr (but my goal
is it to display 3).

i assumed that by using the wildcard character "*" at the end of the
name "TestCases", this would count for it - either i am wrong with my
assumption or i implemeted incorrectly.

if any of you could point out what i am doing wrong or maybe there is
a more elegant way of writing above code, this would be mostly
appreciated.

cheers....


...jurgenC!