Repeating macro across all worksheets

[JP10]

Hope someone can help me.

My base macro works fine when I run it on one worksheet (with any name), but when I run the macro below, which based on my research should run across all the workbooks, it only runs on the worksheet I'm on. My workbook will have a different number of worksheets, with different names everytime (it's a data extract I need to format).

Sub ExportMaster()

Dim xsheet As Worksheet
For Each xsheet In ThisWorkbook.Worksheets

Call Export
Next xsheet
End Sub

Am I missing something?

I'm wondering if it has something to do with this section of the Macro as it has 'activesheet' commands:

Selection.AutoFilter
Columns("A:A").Select
Selection.NumberFormat = "m/d/yyyy"
ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add2 _
Key:=Range("A8"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply

Thanks in advance

 

[JP10]

Looks like the company security settings have disabled macros - I'll have to get it sorted at work tomorrow

 

[Alex Blakenburg]

In the line:

    For Each xsheet In ThisWorkbook.Worksheets

ThisWorkbook is the workbook containing the code which in your case is the Personal workbook.
Change it to be ActiveWorkbook

 

[JP10]

In the line:

    For Each xsheet In ThisWorkbook.Worksheets

ThisWorkbook is the workbook containing the code which in your case is the Personal workbook.
Change it to be ActiveWorkbook

Thank you, I feel like an idiot, it was so simple!

 

[Alex Blakenburg]

No worries. Glad we got it sorted.