Scrolling fully top left

[Farback]

I have a Leave Chart that is used by many people, which has filters on the Name and Department Columns. In order to ensure that all Filters are cancelled, I have this code, called in the workbook open event:
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
Sub unfilter()<o></o>
On Error Resume Next<o></o>
Dim wrksht As Worksheet<o></o>
For Each wrksht In ThisWorkbook.Worksheets<o></o>
wrksht.ShowAllData<o></o>
Next wrksht<o></o>
End Sub
<o> </o>
I also have some code to ensure that worksheets are scrolled fully top-left when activated:
<o> </o>
With ActiveWindow<o></o>
.ScrollRow = 1<o></o>
.ScrollColumn = 1<o></o>
End With
<o> </o>
The problem is that this will apply whenever the worksheet is activated, which can be annoying if someone is browsing through the workbook. What I want to do is combine the two. I have tried:
<o> </o>
Sub unfilter()<o></o>
On Error Resume Next<o></o>
Dim wrksht As Worksheet<o></o>
For Each wrksht In ThisWorkbook.Worksheets<o></o>
wrksht.ShowAllData<o></o>
wrksht.ScrollRow = 1<o></o>
wrksht.ScrollColumn = 1<o></o>
Next wrksht<o></o>
End Sub
<o> </o>
but I get a compile error. Does anyone know how to solve this?

 

[MrKowz]

I really hate having to use the .select method, but I think that it is appropriate here:

Public Sub topleft()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
    ws.Select
    ws.ShowAllData
    Range("A1").Select
Next ws
Applciation.ScreenUpdating = True
End Sub

 

[VoG]

Perhaps

Sub unfilter()
On Error Resume Next
Dim wrksht As Worksheet
For Each wrksht In ThisWorkbook.Worksheets
wrksht.ShowAllData
Application.Goto wrksht.Range("A1")
Next wrksht
End Sub

 

[Farback]

Thanks for the reply both. Unfortunately neither work. I have columns A-C frozen to show headers. I have tried using D6, but it seems to select the cell under the frozen range. I really need to know how to fully scroll the worksheet Top-Right before A1 is selected.

 

[VoG]

This worked for me with panes frozen

Sub unfilter()
On Error Resume Next
Dim wrksht As Worksheet
For Each wrksht In ThisWorkbook.Worksheets
Application.Goto wrksht.Range("A1")
Next wrksht
End Sub

 

[Farback]

Hi VoG

I tried that, and it definitely doesn't work on mine, it just seems to open the workbook with the last worksheet selected, but all the sheets are at different scroll states.