VBA: saving workbook with password error

Hi All

Hoping someone can help me out with an error i'm getting with this bit of code please

When i try to run this code i get a "Named Arugument Not Found"

Dim filepath2 As String
Dim Filename3 As String

filepath2 = "H:\Monthly MI\Excel_Suites\"
Filename3 = CBfile & " v1" & ".xlsm"
cbpass = "RRRP"

ActiveWorkbook.SaveCopyAs Filename:=filepath2 & Filename3, Password:=cbpass

Any help is greatly appreitated

My thanks in advance!