What is wrong with this code?

[dpaton05]

Private Sub cmdNewTool_Click()
Dim newDoc As String
newDoc = "Anglicare Western | Clinical and Therapeutic Services Invoice" & txtyear.Value & ".xlsm"



ActiveWorkbook.SaveCopyAs Filename:=newDoc

It says run time error 1004, we can't find the file.

 

[dpaton05]

I found it, just needed to delete the divider line.

 

[Trebor76]

Hi dpaton05,

File names cannot contain pipe delimited characters. Remove it and try again.

Robert

 

[dpaton05]

Hi dpaton05,

File names cannot contain pipe delimited characters. Remove it and try again.

Robert

Thanks