Copy Excel file on same folder and rename via Dialog box

[Shaggy123]

Hello VBA experts!!!

Please help. I have a file called "01 January 2021 XXX XXX". please help on a VBA that copies that file on same directory and renames on the next date or a dialog box to enter desired filename.

 

[Saurabhj]

Hi,

Kindly use below code:

Sub copyMe()
    Dim newFileName As String
    newFileName = InputBox("Enter file name", "File Name")
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & newFileName & ".xlsx"
End Sub

Thanks,
Saurabh

 

[Shaggy123]

Hi,

Kindly use below code:

Sub copyMe()
    Dim newFileName As String
    newFileName = InputBox("Enter file name", "File Name")
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & newFileName & ".xlsx"
End Sub

Thanks,
Saurabh

Thanks!!!