this is my old code to cicling sheet in numeric name...(4500,4501,450
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 Su

--
sal2

-----------------------------------------------------------------------
sal21's Profile: http://www.excelforum.com/member.php...nfo&userid=204
View this thread: http://www.excelforum.com/showthread.php?threadid=47111