doing COUNTIF() in code

[lothario]

I was using the countif function to see if there was one "X" in th
E4:E3310 range.
(COUNTIF($E$4:$E$3310,"=X")) = 1
It works fine.

Now I need to use the same results to process some code.
But of course the IF statement in the following will not work:
----------------------------------------------------------------------
If ((COUNTIF($E$4:$E$3310,"=X"))= 1) Then

Sheets("wsheet").Select

Sheets("wsheet").Range("A5:j100").ClearContents
' additional stuff goes here

Exit Sub
End If

MsgBox "Please select one."

 

[Rob van Gelder]

Lothario,

Sub test()
If WorksheetFunction.CountIf(Range("$E$4:$E$3310"), "X") = 1 Then
MsgBox "Hello"
End If
End Sub

Rob

 

[lothario]

Thanks Rob