Selections NOT necessary

--
Don Guillett
SalesAid Software

"Alan P" wrote in message
...
Thanks Jay it looks like that did the trick.

Alan

"Jay" wrote:

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