File Renamer

[Jaye7]

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(, 1).Value <> "") Then
       If Dir(r.Value) <> "" Then
           Name r.Value As r.Offset(, 1).Value
       Else
           msg = msg & vbLf & r.Value
       End If
    End If
Next
MsgBox IIf(Len(msg) > 0, "Missing following file(s)" & msg, "Done")
End Sub

 

[nightcrawler23]

TRY,

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(, 1).Value <> "") Then
       If Dir(r.Value) <> "" Then
           Name r.Value As r.Offset(, 1).Value
       Else
           msg = msg & vbLf & r.Value
           [COLOR="Red"]r.Interior.Color = 65535[/COLOR]
       End If
    End If
Next
MsgBox IIf(Len(msg) > 0, "Missing following file(s)" & msg, "Done")
End Sub

 

[Jaye7]

Sorry for the late reply, the script works great, thanks very much for your help.