Save File name to a cell specific location

[razor_raef]

Hey all, i've done searches on this forum without finding much luck as to why my macro isn't working.

I'm trying to have a macro assigned to an object that once hit will save the pre-filled file name (as shown in the example below).

Here is my coding so far:

Sub SaveFile ()
Dim FN As String
FN = Range ("C69").Value
ActiveWorkbook.SaveAs filename:=FN
End Sub

Cell C69 would have something like this:

\\mau.group\corporate\Homefolders$\johnsmith\Desktop\Coaching History\Karen Rose - 15/09/19.xlsm

Thank you to anyone who can figure this one out for me

 

[razor_raef]

All folders must exist & must be named exactly the same as the code.

Can't test this as not on a network, but what if anything does the msgbox say if you run this

Sub chk()
   MsgBox Dir("\\mau.group\corporate\Homefolders$\johnsmith\Desktop\CoachingHistory", vbDirectory)
End Sub

A popup box appeared in Excel that said "CoachingHistory" and that's it, no file save in the folder.

 

[razor_raef]

Maybe as an alternative solution... What is the macro to have a pop up of the Save As function? So that when the user clicks "Save File" box, it will come up with the save as function to save them going to File>Save As.

 

[razor_raef]

Maybe as an alternative solution... What is the macro to have a pop up of the Save As function? So that when the user clicks "Save File" box, it will come up with the save as function to save them going to File>Save As.

Sub SaveAsPopUp()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Got it Thanks everyone.

 

[Fluff]

Glad you sorted it & thanks for the feedback