cicling sheets

[sal21]

this is my old code to cicling sheet in numeric name...(4500,4501,4503
ecc...)
Now my actual format name of sheet is: 4543-018769, 4543-008356,
ecc...
How to mofify this code?

Sub LOOPSHEET()
Application.ScreenUpdating = False

Dim i As Long
For i = 1 To Sheets.Count
If IsNumeric(Sheets(i).Name) Then
Sheets(i).Select
Call ESTRATTI_CICSEA
End If
Next 'i
Worksheets("SALDI").Select
Application.ScreenUpdating = True
End Sub

--
sal21

------------------------------------------------------------------------
sal21's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=2040
View this thread: http://www.excelforum.com/showthread.php?threadid=471117

[Tom Ogilvy]

Sub LOOPSHEET()
Application.ScreenUpdating = False

Dim i As Long
For i = 1 To Sheets.Count

If IsNumeric(Replace(Sheets(i).Name,"-","")) Then

Sheets(i).Select
Call ESTRATTI_CICSEA
End If
Next 'i
Worksheets("SALDI").Select
Application.ScreenUpdating = True
End Sub

Should work in xl2000 or later

--
Regards,
Tom Ogilvy

"sal21" <sal21.1w0z2j_1...@excelforum-nospam.com> wrote in
message news:sal21.1w0z2j_1...@excelforum-nospam.com...