Error while moving sheet

[Hello]

Hello;
I'm getting Run-time error '9': Subscript out of range
with this code on line with *.
Dim FName As String
FName = BP & "-" & EP & ".xls"
Path = "C:\TS\"
If Not FileExists(FName) Then
ActiveWorkbook.SaveAs FileName:=Path & FName, _
FileFormat:=xlNormal, Password:="++++", WriteResPassword:="++++"
ActiveWorkbook.Close
Else
Workbooks.Open FileName:=Path & FName, Password:="++++",
WriteResPassword:="++++"
ActiveWindow.ActivateNext

* Sheets(1).Move After:=Workbooks(" & FName & ").Sheets(Sheets.Count)

ActiveWorkbook.Close (True)
End If

When I enter actual file name it is fine.
PLease help,
Irek

 

[stevebriz]

Irek
where do you have BP and EP dim'd and there strings set?
i am thinking the BP and EP strings are not passing to this module

 

[Hello]

This is not the whole sub, and BP and EP do recalculate correctly
in Immediate window I see
? FName
Aug,01-Aug,15.xls

 

[stevebriz]

This is not the whole sub, and BP and EP do recalculate correctly
in Immediate window I see
? FName
Aug,01-Aug,15.xls

if you remove the ".xls" from Fname does it open ok?

 

[Hello]

if you remove the ".xls" from Fname does it open ok?

Thx Steve
This is from the macro recorder:
Sheets("Jolanta").Move After:=Workbooks("Aug,01-Aug,15.xls").Sheets(1)

so .xls should be fine. Need to dig up dipper.
Irek

 

[stevebriz]

try this
Sheets(1).Move After:=Workbooks(FName).Sheets(Sheets.Count)