deleting rows using vba, based on values in a cell

on sheet3 i have a list of names in column a (mike, tom, etc.), i would like to know how you delete the entire row in another sheet if a cell in column p contains one of the names.

thanks

on sheet1 i have a list of last names (smith, doe, etc.). on another worksheet i have a bunch on a person in each row. column p contains the last names. what code can i use to delete the rows that contain the same names as listed on sheet1.