Rename Files

macropod · #2 05-11-2012, 08:15 PM

Hi,

You can use code like the following. I've assumed the names are in your workbook. If they're not, you can modify the code to suit - the basic principles are the same. Note that the Filepath must end with a "\"

Code:

Sub RenameFiles()
Dim i As Long, Strpath As String
Strpath = "Filepath"
With ActiveSheet
  On Error Resume Next
  For i = 1 To 12
    If Dir(Strpath & .Cells(i, 2).Value, vbNormal) <> "" Then
      Name Strpath & .Cells(i, 2).Value As Strpath & .Cells(i, 1).Value & .Cells(i, 2).Value
    End If
  Next
End With
End Sub

PS: Please don't post Excel vba questions in the Word vba forum.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to Rename a Quick Part	sleake	Word	14	10-14-2013 09:21 AM
Can't rename shared calendars	kenelder	Outlook	0	06-02-2011 07:53 AM
Rename File	cksm4	Word VBA	2	02-25-2011 09:29 AM
Rename Outlook 2003 Contacts Folder	sfpermits	Outlook	6	07-21-2010 09:56 AM
code to save / rename / send attachments	unit213	Outlook	1	09-26-2007 08:15 PM