I found the following script which renames files, can someone please help with a script which will highlight each cell that wasn't changed as yellow.
Sub ReName()
Dim r As Range, msg As String
For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
If (r.Value <> "") * (r.Offset(...