Convert a Private Sub to a normal Sub

[tazeo]

Got a Private Sub:

Private Sub Worksheet_Activate()
On Error Resume Next
Selection.AutoFilter Field:=10, Criteria1:=Sheets("Instructions").Range("AA7").Value
Selection.AutoFilter Field:=33, Criteria1:=Sheets("Instructions").Range("AA5").Value
End Sub

How do I change it to a normal on demand macro. More to it than removing the Private bit, cause that didn't work , so I am guessing there needs to be more at the beginning and end.

Thanks in Advance

 

[Joe4]

Create a sub and name it anything you want. Then put the body of the other code in that one, i.e.

Sub MyMacro()
    On Error Resume Next
    Selection.AutoFilter Field:=10, Criteria1:=Sheets("Instructions").Range("AA7").Value
    Selection.AutoFilter Field:=33, Criteria1:=Sheets("Instructions").Range("AA5").Value
End Sub

 

[tazeo]

Create a sub and name it anything you want. Then put the body of the other code in that one, i.e.

Sub MyMacro()
    On Error Resume Next
    Selection.AutoFilter Field:=10, Criteria1:=Sheets("Instructions").Range("AA7").Value
    Selection.AutoFilter Field:=33, Criteria1:=Sheets("Instructions").Range("AA5").Value
End Sub

Thanks I have no idea what I was doing wrong, its working now

 

[Joe4]

You are welcome.
Glad I was able to help.