VBA Batch Rename Large Amount of Images

[NPoorbaugh]

Hi,

I am looking for a way to batch rename a large set of image files using VBA. I have an Excel sheet with the old name in column 1 and the new in column 2. I have seen some utilities listed here, but sadly the security at the company prohibits us from using all but approved programs. I have a very basic understanding of VBA, and I think this falls well outside it.

Thanks in advance!

[ragulduy]

http://stackoverflow.com/questions/7...with-excel-vba

[NPoorbaugh]

This looks perfect. Would I run it as a formula or save it as a macro? Again, I have a VERY basic understanding.

[ragulduy]

Save it as a macro.

[NPoorbaugh]

I am receiving the error "Compile Error: Invalid Outside Procedure". It then highlights "Set" in "Set Source"

Dim Source As Range
Dim OldFile As String
Dim NewFile As String

Set Source = Cells(1, 1).CurrentRegion

For Row = 1 To Source.Rows.Count
OldFile = ActiveSheet.Cells(Row, 1)
NewFile = ActiveSheet.Cells(Row, 2)

' rename files
Name OldFile As NewFile

Next

[NPoorbaugh]

Would it help if I loaded a picture of the error and the way I have the code situated?

[NPoorbaugh]

Never mind, I got it to work. Thanks! This is perfect!