Month Function- Compile error Wrong number of arguments or invalid property assignment

[adr12345]

Hi


Below is a piece of code which is giving me error "Compile error Wrong number of arguments or invalid property assignment"
This is not the complete code, however at every month function I am getting this error.
Need help on this !!!


count = Range("A1", Range("A1").End(xlDown)).count

Range("A1").End(xlToRight).Offset(0, 1).Select
ActiveCell.Value = "Month-Year"
ActiveCell.Offset(1, 0).Select
i = 2
While i <= count
Dim res2 As Variant
On Error Resume Next

res2 = Month(Cells(i, Application.WorksheetFunction.Match("Completed On", Rows(1), 0))) & "-" & Year(Cells(i, Application.WorksheetFunction.Match("Completed On", Rows(1), 0)))
If res2 = "" Then
ActiveCell.Value = ""
Else: ActiveCell.Value = Month(Cells(i, Application.WorksheetFunction.Match("Completed On", Rows(1), 0))) & "-" & Year(Cells(i, Application.WorksheetFunction.Match("Completed On", Rows(1), 0)))
End If

 

[RoryA]

Do you have a function/subroutine called Month, or a variable by that name?

 

[adr12345]

No Its just a formula which I used to use in VBA code.

 

[RoryA]

There must be something - there is no error with the function code as posted. Can you post the complete code?

 

[Dryver14]

I am no expert so....... don't shout

why is there a : after the else statement