Workbook_Open Not Working In ThisWorkbook

[cicconmr]

Let me know if I'm doing this correctly.

I'm double clicking the ThisWorkbook under Excel Object and adding in:

Private Sub Workbook_Open()

Call Sort

End Sub

That's it....can it have something to do with the way I saved my program? This should be working....right?

 

[RoryA]

Assuming you have macros enabled, yes it should run when you open the workbook. Sort is not really a good name for a macro though as it's also the name of a built-in Excel method.

 

[cicconmr]

Okay I'm going to rename it and try again.

 

[cicconmr]

It is still not working

 

[Andrew Poulsom]

If that code is in an Add-In it will run when the Add-In is opened, not when another workbook is opened. If you want to run a macro when any workbook is opened you will need to use Application events:

http://www.cpearson.com/Excel/AppEvent.aspx

 

[Sektor]

What does error say?

 

[cicconmr]

There is no error....the macro is simple enough, all it does is sort some columns in a hiding sheet when the data is updated via Bloomberg. BUt it still will not work unless I run it manually through the VBE.

 

[CharlesChuckieCharles]

Post the code

 

[cicconmr]

Private Sub Workbook_Open()
Call Organize_Macro

End Sub

Sub Organize_Macro()
'
' Sort sheet upon open
'
Application.ScreenUpdating = False

Worksheets("Hardware").Sort.SortFields.Clear
Worksheets("Hardware").Sort.SortFields.Add Key:=Range( _
"B2:B501"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With Worksheets("Hardware").Sort
.SetRange Range("A1:B501")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Worksheets("Hardware").Sort.SortFields.Clear
Worksheets("Hardware").Sort.SortFields.Add Key:=Range( _
"K2:K501"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With Worksheets("Hardware").Sort
.SetRange Range("J1:K501")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Worksheets("Hardware").Sort.SortFields.Clear
Worksheets("Hardware").Sort.SortFields.Add Key:=Range( _
"S2:S501"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With Worksheets("Hardware").Sort
.SetRange Range("R1:S501")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Worksheets("Hardware").Sort.SortFields.Clear
Worksheets("Hardware").Sort.SortFields.Add Key:=Range( _
"Z2:Z501"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With Worksheets("Hardware").Sort
.SetRange Range("Y1:Z501")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Worksheets("Hardware").Sort.SortFields.Clear
Worksheets("Hardware").Sort.SortFields.Add Key:=Range( _
"AH2:AH501"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Hardware").Sort
.SetRange Range("AG1:AH501")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Worksheets("Hardware").Sort.SortFields.Clear
Worksheets("Hardware").Sort.SortFields.Add Key:=Range( _
"AP2:AP501"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With Worksheets("Hardware").Sort
.SetRange Range("AO1:AP501")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Worksheets("Hardware").Sort.SortFields.Clear
Worksheets("Hardware").Sort.SortFields.Add Key:=Range( _
"AX2:AX501"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With Worksheets("Hardware").Sort
.SetRange Range("AW1:AX501")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Sheets("Panel").Select
Range("A12").Select

Application.ScreenUpdating = True
End Sub

 

[cicconmr]

The Macro is working, the problem is it is moving faster than my Bloomberg links can update the data!

Is there a way one can put a time delay on calling the Organize_Macro?

I apologize for that.