VBA: Remove rows based on date in cell in another worksheet

[Declamatory]

Good afternoon,

I have a workbook with to worksheets. Sheet 1 has a list of items. In column P is the date of payment.

In Sheet 2 I have payment date in cell C25.

Can anybody help me with vba code that would remove the rows in sheet 1 that don't have the date in cell C25 in Sheet 2 in column P?

Thanks in advance for any help you can give me.

 

[Declamatory]

This is code that I use to delete rows in another macro I run that deletes the rows that have "Buy" in column B. I just need to somehow do the same but rather than "Buy" looking at the contents of cell C25 in Sheet 2.

  Last = Cells(Rows.Count, "M").End(xlUp).Row
       
    For i = Last To 1 Step -1
        If (Cells(i, "B").Value) = "Buy" Then
            Cells(i, "A").EntireRow.Delete
        End If
    Next i

 

[jmacleary]

Try this:

  Last = Cells(Rows.Count, "M").End(xlUp).Row
       
    For i = Last To 1 Step -1
        If worksheets("Sheet2".range("C25").Value <> (Cells(i, "B").Value Then
            Cells(i, "A").EntireRow.Delete
        End If
    Next i

 

[Declamatory]

Thanks for replying. I got a compile error:

Expected: list separator or )

The error was in the line

If worksheets("Sheet2".range("C25").Value <> (Cells(i, "B").Value Then

 

[jmacleary]

sorry, that should be If worksheets("Sheet2").range("C25").Value <> (Cells(i, "B").Value Then

 

[Declamatory]

Thanks for your help. I think there should have been another ) after .Value

I really appreciate it, thanks.