Rename several files with VBA

Sub RenameSeveralFiles()

'___________________________________________________________
'

'This Excel VBA macro will rename the file extension on
'several existing files on your hard disc
'You can modify it to suit other changes in filenames
'Be careful, this is very powerful and it will not
'stop to ask you to confirm the filename changes
'This quick macro works in Excel
'___________________________________________________________
'

Dim PreviousFileName, NewFileName As String
Dim i As Long

 'assume column A contains the filename without the extension
 'from row 1 to row 3.
 '==========================================================
 For i = 1 To 3     'Here, change the values of i to
                    'suit your starting row and ending row

   PreviousFileName = "C:\Temp\" & Worksheets("Sheet1").Cells(i, 1).Value & ".TXT"
   NewFileName = "C:\Temp\" & Worksheets("Sheet1").Cells(i, 1).Value & ".txt"
     
   Name PreviousFileName As NewFileName
 
Next i

End Sub