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

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

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

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

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