Thank you. This works. By the way, apologies for not including the Code Tags - this is my first thread, but I'll know better next time!

Quote Originally Posted by JOHN H. DAVIS View Post
Changing this line:

ActiveSheet.Range("$A$1:$C$10000").AutoFilter Field:=1, Criteria1:="Provisional"
To this will account for the 2 you mentioned.

ActiveSheet.Range("$A$1:$C$10000").AutoFilter 1, "Provisional", xlOr, "Confirmed"