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


--
bastanu
------------------------------------------------------------------------
bastanu's Profile: http://www.excelforum.com/member.php...o&userid=20015
View this thread: http://www.excelforum.com/showthread...hreadid=395632