Hi everybody,
I'm having a bit of a struggle to find out what's wrong with this code:

VBA CODE:
Private Sub Worksheet_Activate()
Dim rFilter As Range

On Error Resume Next

'turn on autofilter
Me.EnableAutoFilter = True
Set rFilter = Me.Range("tl_Transactions_Data")
rFilter.AutoFilter
If ActiveSheet.FilterMode Then
Me.ShowAllData
End If

'toggle drop-down arrows
If Not Me.AutoFilterMode Then rFilter.AutoFilter

Me.EnableOutlining = True

Me.Protect Password:="My_Sheet", Contents:=True, UserInterfaceOnly:=True, DrawingObjects:=False

'sort the transaction data range -no headers!
Me.Range("tl_transaction_data").Sort _
Key1:=[A1], Order1:=xlAscending, header:=xlNo, Orientation:=xlSortColumns

If Application.ScreenUpdating = False Then Application.ScreenUpdating = True

If Not Application.Calculation = xlCalculationAutomatic Then Application.Calculation = xlCalculationAutomatic

End Sub

VBA CODE

When the autofilter is enabled it displays the blue arrow on a different column, making things very difficult (for me as the developer ).

Any ideas, I couldn't find anything on this on the web..

Thank you very much,

bastanu