Hi
try something like
activesheet.range("A1").value = Application.CountIf(Range("B:B"), "*" &
S350 & "*" & "*" &
Gate1 & "*")

--
Regards
Frank Kabel
Frankfurt, Germany


I am using a countIf statement to count occurances of certain values,
right now they are being displayed in a MsgBox but i want to have the
value pasted into a specific cell instead of the MsgBox. Below is
the
code that I have so far. Can someone tell me the easiest way to make
this change.
----------------------------------------------------------
Private Sub S350btn_Click()

Dim S350 As String
Dim Gate1 As String
Dim Gate2 As String
Dim Gate4 As String

S350 = "350"
Gate1 = "Gate 1"
Gate2 = "Gate 2"
Gate4 = "Gate 4"

MsgBox Application.CountIf(Range("B:B"), "*" & S350 & "*" & "*" &
Gate1 & "*"), , "S350 Gate 1"

MsgBox Application.CountIf(Range("B:B"), "*" & S350 & "*" & "*" &
Gate2 & "*"), , "S350 Gate 2"

MsgBox Application.CountIf(Range("B:B"), "*" & S350 & "*" & "*" &
Gate4 & "*"), , "S350 Gate 4"

End Sub

--------------------------------------------------------------

Thank you

Morry


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