>>11
よーわからんけどこれじゃあかんの

Sub test()
'Dにしてうr
saveFileName = "D:\data\" & Range("A5").Value & "_" & ThisWorkbook.Name
ActiveWorkbook.SaveAs Filename:=saveFileName
Debug.Print saveFileName
End Sub