VBA code to Save As in Current Folder and a Cell Dependent Name

[NSegna]

Hello

I was wondering how to make a macro SaveAs my file into the folder that my main file is in. Currently my code saves to my documents folder.
My current code:

Sub SaveAs()
ActiveWorkbook.Save
ThisFile = Range("B4").Value & Range("B8").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

Thanks

 

[Steve_]

Hello

I was wondering how to make a macro SaveAs my file into the folder that my main file is in. Currently my code saves to my documents folder.
My current code:

Sub SaveAs()
ActiveWorkbook.Save
ThisFile = Range("B4").Value & Range("B8").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

Thanks

Sub SaveAs()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name
    'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.FullName 'This would accomplish the same thing as above
    Application.DisplayAlerts = True
End Sub

 

[NSegna]

Hello Steve

The code works perfectly

Thank you very much

 

[Steve_]

Hello Steve

The code works perfectly

Thank you very much

Happy to help! Feel free to throw a like on the code.