Assuming your problem is that you don't know how to rename the files,
how about this?

Private Sub cmdRename_Click()
Dim sFileName As String, sPath As String, rFileName As String
sFileName = ActiveCell.Select
sPath = "F:\excel\"
rFileName = InputBox("")
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''
'If new name is entered and that is different from old one.
If rFileName < "" And UCASE(rFileName) < UCASE(sFileName) Then
Name sPath & sFileName as sPath & rFileName
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''
End Sub