Macro to check if cell contains specific value and color entire row as red

Dim cell1 As Range

 Dim rng1 As Range

 Set rng1 = ActiveSheet.UsedRange

For Each cell1 In rng1

 On Error Resume Next

If cell1.Value Like "*.pdf*"  then

cell1.EntireRow.Interior.Color = vbRed

 End If

 Next cell1