Creating variables for file path names VBA

[SAMCRO2014]

I am writing coding for a rather large macro and I am trying to decrease the number of characters I use. One way to do this is to define a variable for the long file path name but it is not liking it.

My coding is:

' Ask user for the period of the projection exercise
PNumber = InputBox("What period is it?" & vbNewLine & vbNewLine & "Please enter the number:")

'Define variables
FNTemplate = "J:\FinanceAdmin\Finance\Resource Management\Regional\2019-20\Templates\RPA Zone Roll Up"
FNProjection = "J:\FinanceAdmin\Finance\Resource Management\Regional\2019-20\Projections\P" & PNumber & "\Variances\RPA Roll Up"


'Open all Branch Rollup templates
Workbooks.Open Filename:="'FNTemplate'\2020.PX.LPRA Zone Roll up.v1.RXM.xlsx"
Workbooks.Open Filename:="'FNTemplate'\2020.PX.ABSB Zone Roll up.v1.RXM.xlsx"
Workbooks.Open Filename:="'FNTemplate'\2020.PX.Appeals Zone Roll up.v1.RXM.xlsx"
Workbooks.Open Filename:="'FNTemplate'\2020.PX.CVB Zone Roll up.v1.RXM.xlsx"
Workbooks.Open Filename:="'FNTemplate'\2020.PX.DCP Zone Roll up.v1.RXM.xlsx"
Workbooks.Open Filename:="'FNTemplate'\2020.PX.ILBI Zone Roll up.v1.RXM.xlsx"

Am I wrong to assume you can define a variable as a file path?

 

[SAMCRO2014]

Yes, but what is the value when the code fails?

I guess I do not understand what you are asking me. I have a message box popping up asking to enter which period they are working on. Depending on the number entered will determine what PNumber is.

 

[Fluff]

Is the code that you supplied working, or does it fail?

 

[SAMCRO2014]

Is the code that you supplied working, or does it fail?

I am getting run-time error '1004': Method 'SaveAs' of object'_Workbook' failed.

 

[Fluff]

Ok, what is the value of PNumber when you get that message?
ie. what did you enter into the inputbox?

 

[SAMCRO2014]

I entered the number 2. I want the result to be P2 in the file name.

 

[Fluff]

Ok, add this message box as shown

Dim FNProjection As String
FNProjection = "\\S15ACFFP0001\GROUP-D\Finance\Resource Management\Regional\2019-20\Projections\P" & pNumber & "\Variances\RPA Roll Up"
[COLOR=#ff0000]MsgBox Dir(FNProjection, vbDirectory)[/COLOR]
'Save each template in the correct projection period folder

Windows("2020.PX.ILBI Zone Roll up.v1.RXM.xlsx").Activate

What does it say?

 

[SAMCRO2014]

It is coming up blank

 

[SAMCRO2014]

I figured it out. I had a typo in the file path. I am so sorry I wasted for time. I must say I learn so many new things about macros from this site.

 

[Fluff]

Glad you figured it out & thanks for the feedback