AFAIK, the autofilter property of the worksheet object does not have a position property, at least
through XL2003. So this line:

.AutoFilter.Position = bottom

should not have compiled....

HTH,
Bernie
MS Excel MVP


wrote in message
ups.com...
Hi all,

Looking for VB code to change the opening position of the autofilter
list. I added this code to compensate for the older versions of excel
not allowing access to the autofilter if the worksheet is protected but
now all the autofilter lists (if over a certain lenght) appear at the
top of the header column instead of at the bottom. Unfortunately this
is cutting off access to some of the data in the list. Also, you cannot
view the full text in the formula toolbar if it is over the lenght of
the cell anymore.

Can anyone solve this for me?

Cheers Doo x

'Initiate reminder message to appear on first of everymont for achiving
and check for filter, turn on if none exists
Private Sub Workbook_Open()
If Month(Date) < Sheet2.Range("A1").Value And _
Day(Date) = 1 Then
MsgBox ("Please archive this tracker today. Thanks.")
Sheet2.Range("A1").Value = Month(Date)
End If


With Worksheets("sheet1")
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

With Worksheets("sheet2")
If Not .AutoFilterMode Then
.Range("B2:X2").AutoFilter
End If
.EnableAutoFilter = True
.AutoFilter.Position = bottom
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

With Worksheets("sheet3")
If Not .AutoFilterMode Then
.Range("B2:H2").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

With Worksheets("sheet 4")
If Not .AutoFilterMode Then
.Range("B2:E2").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

With Worksheets("sheet5")
If Not .AutoFilterMode Then
.Range("B2:X2").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

With Worksheets("sheet 6")
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

With Worksheets("sheet 7")
If Not .AutoFilterMode Then
.Range("B2:E2").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

End Sub