Rename Files

macropod · #4 05-14-2012, 03:03 AM

It would have been easier if you had posted a workbook with sample data to begin with.

Try:

Code:

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

Note: you may still have to change Strpath to use a conventional filepath, rather than the network path.

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