& "r:" &

Maybe:

& ":r" &

--
Jim
"PhilM" wrote in message
...
| 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