Macro to save file in shared network drive

[Dscalf1]

I am trying to get this file to be saved in a network drive mapped on my computer. I just want to save it and not close out the file or anything. What I have so far is listed below. I want the file name to be "Bread Reconciliation" + "Whatever date that is listed in cell D1 on Sheet "Bread Input" ". I keep getting this error: Run-time error'1004': Method 'SaveAs' of object'_Workbook' failed

Private Sub CommandButton1_Click()


Dim FP As String, FN As String
FP = "R:\Manufacturing Transformation\Wrap Reconciliation\Bread Archive\"
FN = Sheets("Bread Input").Range("BD1").Value
ActiveWorkbook.SaveAs Filename:=FP & FN & ".xls"
End Sub

 

[jondavis1987]

Private Sub CommandButton1_Click()


Dim fName1 as String
fName = Sheets("Bread Input").Range("Bread Input!BD1").Value
ActiveWorkbook.SaveAs Filename:="R:\Manufacturing Transformation\Wrap Reconciliation\Bread Archive\" & fName & ".xls"
End Sub

Try that and see how it does

 

[Dscalf1]

Private Sub CommandButton1_Click()


Dim fName1 as String
fName = Sheets("Bread Input").Range("Bread Input!BD1").Value
ActiveWorkbook.SaveAs Filename:="R:\Manufacturing Transformation\Wrap Reconciliation\Bread Archive\" & fName & ".xls"
End Sub

Try that and see how it does

Nope now its giving me a Compile Error: Syntax Error

 

[jondavis1987]

what line is it giving you the error on?

 

[jondavis1987]

It may be because i left that 1 in there on the dim fName1. Try taking that out

 

[Dscalf1]

I had taken the 1 out previously and thats what I got. The line that comes up in red is the:

ActiveWorkbook.SaveAs Filename:=R:\Production\Wrap Reconciliation\Bread Archive" & fName & ".xls"

 

[Dscalf1]

I was missing a " in that path I fixed that so the syntax error went away. Now im getting this error:

Run-time error '1004':
Method 'Range of Object'_Worksheet' failed

 

[jondavis1987]

Try putting a space between the = and "R

[COLOR=#333333][I]Private Sub CommandButton1_Click()[/I][/COLOR]

Dim fName as String
fName = Sheets("Bread Input").Range("Bread Input!BD1").Value
ActiveWorkbook.SaveAs Filename:= "R:\Manufacturing Transformation\Wrap Reconciliation\Bread Archive\" & fName & ".xls" 
[COLOR=#333333][I]End Sub[/I][/COLOR]

Also are you using excel 97-2003 version? If not i wonder if the xls format is making it have problems

 

[Dscalf1]

Didnt work wouldnt let me put a space in..

And no I have a newer version of excel.

 

[jondavis1987]

try it as .xlsm