VBA error

[Aurora118]

Hi,

I am trying to run a macro and I keep getting an error message.
Can anyone pinpoint where the mistake is please?

Function MonthDiff(date1 As Date, date2 As Date) As Long
MonthDiff = DateDiff(m, date1, date2)
End Function

Sub Calc_Dates_Stat2()

Dim prev_date As Date
Dim curr_date As Date
Dim Months
Dim NA As Boolean

Range("U2").Select

Do Until IsEmpty(Range("T" & ActiveCell.Row))

NA = False

If IsEmpty(Range("B" & ActiveCell.Row)) Then
NA = True
Else
curr_date = Range("B" & ActiveCell.Row).Value
End If

If IsEmpty(Range("A" & ActiveCell.Row)) Then
NA = True
Else
prev_date = Range("A" & ActiveCell.Row).Value
End If

If NA = False Then
ActiveCell.Value = MonthDiff(prev_date, curr_date)
End If

ActiveCell.Offset(1, 0).Select

Loop

End Sub


Thanks

 

[Jon von der Heyden]

What is the error description and what line does it break on? I.e. the ine should be highlighted in yellow.

Perhaps instead of using the IsEmpty() function you should be using IsDate().

 

[Aurora118]

MonthDiff = DateDiff(m, date1, date2)
End Function

This is the part where is falls over.

Run time error 5
Invalid procedure call or argument

 

[MickG]

Try :-

Function MonthDiff(date1 As Date, date2 As Date) As Long
MonthDiff = DateDiff("m", date1, date2)
End Function

Mick

 

[Jon von der Heyden]

m should be in speech marks, i.e. "m"

Although all that function does is avoids you having to input the first argument, so you might as well just call DateDiff in your main routine.

 

[Aurora118]

thank you very much!