AutoFilter Help

[Evagrius Ponticus]

Hi All,

I have worksheet with about 250 rows of data - this is the "Summary" sheet. The sheet is autofiltereed. Among othe things, the column headings are "project" and "Project Leader".

In the workbook, I have numerous sheet tabs each named after a project leader.

Here is what I am trying to do w/my code. When a project leader activeates their tab, the "Summary" sheet is filtered w/only that person's projects, the filtered data is then copied into that person's sheet, and any updates they make to that data on their sheet is then reflected on the "Summary" sheet. Thanks for any help. Here is what I have so far.

Private Sub Worksheet_Activate()
Set MyActive = Sheets("Summary")

'FILTER SUMMARY SHEET BASED ON LEADER
MyActive.Range("T1").AutoFilter Field:=20, Criteria1:="Jack Black"

End Sub


Private Sub Worksheet_Deactivate()

'RESET AUTOFILTER TO SHOW ALL PROJECTS
    With MyActive
    If .AutoFilterMode Then
     .ShowAllData
    End If
    End With

End Sub