add message box

[excelsql987]

Before starting the following code I am trying to add the following message: "What is the period ?"

the period must be entered as this format : mm-dd-yyyy

Then overwrite the date to cell C1

This is the code below:

Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub 

[Richard Buttrey]

Check out shg's method in his #2 post in this 2011 thread

https://www.excelforum.com/excel-pro...date-time.html