Append filename when saving?

[john0207]

Hi, I have a macro which runs when the workbook is closing where I can create the filename.

Sub shiftchnage()
'
' shiftchnage Macro
'

FileName1 = InputBox("Input filename ", "Filename")
ActiveWorkbook.Save
 ChDir "c:\"
 ActiveWorkbook.SaveAs Filename:="K:\ESS- 2005\Production Meeting\Daily 6 fundamentals\Current Trackers\UNIT 4 TRACKERS\SCAM Trackers\CAMERA TRACKER\" & FileName1, FileFormat:=52, _
 Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
 CreateBackup:=False
 Call Shell("explorer.exe" & " " & "K:\_Group_Leaders\Group Leader Log\UNIT 1 CHANGEOVERS\", vbNormalFocus)
 
ActiveWorkbook.Save
End Sub

is It possible to change the code in macro so that I can add 4 letters to the existing filename with an input box.?

 

[ranman256]

cant you add the 4 letters (with the filename) at the : InputBox?

 

[Yongle]

expanding on what was suggested by @ranman256
This would build file name string (incl folder path) as you requested assuming that the workbook is to be saved to the same folder as the original workbook

Dim x As String, FileName1 As String
With ActiveWorkbook
    x = InputBox("Add 4 letters")
    FileName1 = Left(.FullName, Len(.FullName) - 5) & x
    MsgBox FileName1
End With

 

[Yongle]

And if the workbook is to be saved to a different folder

FileName1 = DifferentFolderPath & "\" & Left(.Name, Len(.Name) - 5) & x