Rename a file with VBA

Sub RenameOneFile()

'___________________________________________________________
'

'This Excel VBA macro renames the file extension on
'one existing file 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 change
'This quick macro works in Excel

'___________________________________________________________
'


Dim PreviousFileName As String
Dim NewFileName As String

 'assume cell A1 contains the filename only, without extension
 '============================================================

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

End Sub