Try this modification which deletes the Else clause, cleans up the Next line,
and adusts the Then clause...

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


"Alan P" wrote:

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