Move one worksheet within workbook for multiple workbooks

[Hawks85]

Hi,

I have a set of workbooks which all contain a worksheet called "Data". I need to move this worksheet to the beginning of each workbook. I'd like to set up a macro to do this for all workbooks simultaneously.

I have the following code, but it only seems to move the worksheet in the currently active workbook, and doesn't move on to the next workbook.

Sub MoveData()

Dim wb As Workbook

For Each wb In Workbooks

Worksheets("Data").Move Before:=Worksheets(1)

Next wb

End Sub

What am I missing?

 

[Hawks85]

Clarification: I have all the workbooks open when i try to run the macro.

 

[Hawks85]

Never mind, I solved the problem

Sub MoveData()

Dim wb As Workbook

For Each wb In Workbooks

[COLOR=#FF0000]If wb.Name <> "PERSONAL.XLSB" Then[/COLOR]
[COLOR=#ff0000]wb.[/COLOR]Worksheets("Data").Move Before:=[COLOR=#FF0000]wb.[/COLOR]Wor[COLOR=#FF0000][/COLOR]ksheets(1)
[COLOR=#FF0000]End If[/COLOR]

Next wb

End Sub