Monthrange = Application.CountIf(Sheets("inpatient data").Range("R" &
essstart & "r:" & ESSend), Monthvalue(Monthdataloop))

Having problems with the above statement

Values as follows

essstart = 44405
essend = 52346
Monthvalue = April (as string)

Can anyone spot anything obvious?

Having to do the count to determine how many entries per month to find
out where each month starts. Application.match reuturned the same error