Invalid Qualifier

[30percent]

Hi,

I have the following code.
However, it would not run - I got the following error message:

Compile Error:
Invalid qualifier.

Wonder if someone could point what the error is.

Thank you!

Sub update_MTD()
Dim minus_day As Integer, sessionDate As String, current_Month As Integer, previous_Month As Integer


minus_day = get_Minus_Day()
sessionDate = get_SessionDate(minus_day)
current_Month = Month(sessionDate)
previous_Month = current_Month - 1


Dim startRow_current As Long, endRow_current As Long, startRow_prev As Long, endRow_prev As Long
With ThisWorkbook.Worksheets("Totals")
    startRow_current = .Range("A:A").Find(what:="current_Month", after:=ThisWorkbook.Worksheets("Totals").Range("A1")).Row
    endRow_current = .Range("A:A").Find(what:="current_Month", after:=ThisWorkbook.Worksheets("Totals").Range("A1"), searchdirection:=xlPrevious).Row
    startRow_prev = .Range("A:A").Find(what:="previous_Month", after:=ThisWorkbook.Worksheets("Totals").Range("A1")).Row
    endRow_prev = .Range("A:A").Find(what:="previous_Month", after:=ThisWorkbook.Worksheets("Totals").Range("A1"), searchdirection:=xlPrevious).Row
End With


Set rng_Current_MTD = ThisWorkbook.Worksheets("Totals").Range("C" & startRow_current.Row, "C" & endRow_current.Row)


Current_MTD = WorksheetFunction.Sum(rng_Current_MTD)


End Sub

you!

 

[Rick Rothstein]

Which line of code was highlighted when the error occurred?

Also, do you have procedures named get_Minus_Day and get_SessionDate?

 

[30percent]

this line of code was highlighted:

[COLOR=#333333]Sub update_MTD()[/COLOR]

Dim minus_day As Integer

today = get_today("weekday")


Select Case today
Case 2, 3, 4, 5
    minus_day = 0
Case 1
    minus_day = 2
End Select


get_Minus_Day = minus_day




End Function


Public Function get_SessionDate(ByVal minus_day As Integer)


Dim session_Date As String
Dim sessionYear As String
Dim sessionDay As String
Dim sessionMonth As String


thisDate = get_today("today")


sessionYear = Year(thisDate - minus_day)


If (Day(thisDate - minus_day)) < 10 Then
    sessionDay = "0" & CStr(Day(Date - minus_day))
Else
    sessionDay = CStr(Day(thisDate - minus_day))
End If


If (Month(thisDate - minus_day)) < 10 Then
    sessionMonth = "0" & CStr(Month(thisDate - minus_day))
Else
    sessionMonth = CStr(Month(thisDate - minus_day))
End If


session_Date = sessionMonth & "-" & sessionDay & "-" & sessionYear


get_SessionDate = session_Date


End Function