I would like to use VBA to count the number of times a value occurred between two given dates. The output should display 1.

I am using the following code but cant seem to get the correct value. 

```
Sub clientIntAnalysis()
Dim r As Integer
Dim startdate As Date, endDate As Date
startdate = "07/01/2019"
endDate = "07/30/2019"
    Dim LastCol As Long, LastRow As Long, rng As Range, rng2 As Range

    LastRow = Sheet3.Range("M" & Sheet3.Rows.Count).End(xlUp).Row
    LastCol = Sheet3.Cells(8, Columns.Count).End(xlToLeft).Column

    With Sheet3
        Set rng = .Range(.Cells(8, 14), .Cells(LastRow, LastCol))
        Set rng2 = .Range(.Cells(8, 13), .Cells(LastRow, LastCol))
    End With

    r = Application.WorksheetFunction.CountIfs(rng, ">=" & startdate, rng, "<=" & endDate, rng, "=" & "Client Interested") 'q3

    MsgBox r

End Sub

```

[![enter image description here](https://i.stack.imgur.com/luB9K.jpg)](https://i.stack.imgur.com/luB9K.jpg)