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

 

[Legacy 98055]

Use this:

ActiveWorkbook.SaveAs FN, xlOpenXMLWorkbookMacroEnabled

 

[razor_raef]

Use this:

ActiveWorkbook.SaveAs FN, xlOpenXMLWorkbookMacroEnabled

Hey Tom,
Looks like I got a bit further because now i'm coming up with the following error:

Run-time error '1004':
The file could not be accessed. Try one of the following:
- Make sure the specified folder exists.
- Make sure the folder that contains the file is not read-only.
- Make sure the file name does not contain any of the following characters: <>?[]:| or *
- Make sure the file/path name doesn't contain more than 218

I can confirm that all of these have been met

 

[Fluff]

Hi & welcome to MrExcel.
You cannot use a / character as part of a file name.

 

[razor_raef]

Hi & welcome to MrExcel.
You cannot use a / character as part of a file name.

Hi and thank you for the welcome.
I presume that would be the case and so I made the save file target as shown below but it's still not working:
[TABLE="width: 64"]
<tbody>[TR]
[TD="width: 64"]\\mau.group\corporate\Homefolders$\jsmith\Desktop\CoachingHistory\karen.xlsm[/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

I notice that in your op there is a space between Coaching & History, but it's gone in you last post.

 

[razor_raef]

I notice that in your op there is a space between Coaching & History, but it's gone in you last post.

Yeah i got rid of the space in case that was an issue as well :P hehehe. Folder name is replicated on desktop so that shouldn't be an issue. (ps. if there wasn't a coaching history file on desktop at all, would this macro automatically create it or the folder has to be existing?)

 

[Fluff]

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

 

[razor_raef]

I’m going home for the day but will respond in approx 16 hours time.

 

[Fluff]

Ok.