Type mismatch at saveas filename statement

[ChanL]

Hit type mismatch error at the saveas filename row , and i believe its because there is a mixture of string and integer for the variable in the filename. Can anyone advice on this?

Dim prd as string, dept as string, yrs as integer

prd=ThisWorkbook.Sheets("Main").Range("I10").value
dept=ThisWorkbook.Sheets(Main").Range("I11").value
yrs=ThisWorkbook.Sheets(Main").Range("I12").value

ChDir ThisWorkbook.Sheets("Main").Range("I13").value
:Activeworkbook.saveas filename := "EKYC" + prd + "_" + yrs + "_" + "dept" + ".xlsm"

 

[dave3009]

The concatenation operator is an ampersand & not the plus + symbol.

Dim prd as string, dept as string, yrs as integer

With ThisWorkbook.Sheets("Main")
prd = .Range("I10").value
dept = .Range("I11").value
yrs = .Range("I12").value

ChDir .Range("I13").value
End With
Activeworkbook.saveas filename := "EKYC" & prd & "_" & yrs & "_" & "dept" & ".xlsm"

 

[Phuoc]

Try change: "EKYC" + prd + "_" + yrs + "_" + "dept" + ".xlsm"

to: "EKYC" & prd & "_" & yrs & "_" & "dept" & ".xlsm"

 

[ChanL]

thanks both! its working !!

 

[dave3009]

Glad to help and thanks for the feedback.
Please could you mark this post as solved.
Thank you, Dave