try this. Test and then uncomment the commented line

Sub eachnumericws()
For Each ws In Worksheets
If IsNumeric(ws.Name) Then MsgBox ws.Name 'TEST
'If IsNumeric(ws.Name) Then movedata
Next
End Sub


--
Don Guillett
SalesAid Software

"Alan P" wrote in message
...
I'm trying to loop through a workbook, test to see if the worksheet name
is
numeric, and if so go to a subroutine(MoveData), if not, continue to the
next
worksheet. I tried the following but can't get it to work, it has a
problem
with the Next line. Anyone have any ideas?

Thanks, Alan

Sub Move_All_Data()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Select
If IsNumeric(ActiveSheet.Name) Then
MoveData
Else
Next ws
End Sub