Hi all, I don't understand why my call to an autofilter function doesn't work. When I execute the function by itself everything works fine.
Here is my code:
Sub RunOnTimeStop_SampleGroups()
On Error Resume Next
Application.OnTime dTime, "RunOnTime_SampleGroups", , False
Call ToggleFltrCriteriaSG
Call SgWks_UnHide
Call SgToggleVerify
Call AutoFilterOn_SampleGroups
End Sub
Sub AutoFilterOn_SampleGroups()
Sheets("SampleGroups").Select
ActiveSheet.ShowAllData
Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFilter
Range("A7").Select
End Sub
I even tried putting a one secong wait delay before the Call AutoFilterOn_SampleGroups function, but that didn't seem to help. All I get is the worksheet selected and the active cell on A7. Can anyone shed some light on what's happening here.
Thanks
Bookmarks