Counting Values in a Range

[Giraffe3289]

Hi,

I'm trying to count the number of "Yes" and "No" in a range using the worksheet function CountIf, but so far it isn't working...It says that there is a compile error and that I need to define an object on the "Set CountYes...." line, but I don't know what I'm missing!

Sub Count_Goal_Met() 
 
Dim Goal_Met_Column As Range
Dim CountYes As Integer
Dim CountNo As Integer
 
Set Goal_Met_Column = Application.InputBox(Prompt:="Please select the goal met range with your mouse.", Title:="Specify Goal Met Range", Type:=8)
Set CountYes = WorksheetFunction.CountIf(Range(Goal_Met_Column), "Yes")
Set CountNo = WorksheetFunction.CountIf(Range(Goal_Met_Column), "No")
 
MsgBox ("There are " & CountYes & " yeses and " & CountNo & " nos.")
 
End Sub