color row if there is a date

Hi everyone.
in the attached workbook sheet2 must highlight the row if there is a date in column P
now the color of the row changes if I click in the cell.
It has to do this if I move between the two sheets

Thanks you rollis13, but I have to use a macro

Change the macro because it works with

Private Sub Worksheet_Activate()


now it doesn't work

Please Login or Register  to view this content.

Thanks rollis it works well.

I added 4 lines

If UCase(Trim(cell.Value)) = "" Then
Me.Range("A" & cell.Row & ":P" & cell.Row).Validation.Delete
Me.Range("A" & cell.Row & ":P" & cell.Row).Interior.Color = xlNone
End If

but for this

Me.Range("A" & cell.Row & ":P" & cell.Row).Interior.Color = xlNone

I have to switch between 2 sheets twice

Please Login or Register  to view this content.