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."
----------------------------------------------------------------------

Can you help me fix the above code so that it works

--
Message posted from http://www.ExcelForum.com

Lothario,

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

Rob


"lothario " wrote in message
...
I was using the countif function to see if there was one "X" in the
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."
----------------------------------------------------------------------

Can you help me fix the above code so that it works?


---
Message posted from http://www.ExcelForum.com/

Thanks Rob


---
Message posted from http://www.ExcelForum.com/