Hi Simon,

You are close:

Sub CommandButton1_Click()

Dim colA As Range
Dim cellA as Range
Dim emplCount As Integer
Set colA = ActiveSheet.Range("A:A")

For Each cellA In colA
If cellA.Value = "C" = True Then
emplCount = emplCount + 1
End If
Next

MsgBox emplCount & " Number of employees"


End Sub

HTH,

Executor


simon10810 wrote:
Hello people,

I'm new to VBA writing... and am trying to do a simple function, but
it's proving rather complex. I'm wanting the macro to count the number
of "C" in the column A, and out put the value in a message box.

Below is what I have got so far, I dont get any error messages and the
msgbox pops up, but there are no values in the box..

I hope some one can give me some help.


Thank you!
Simon

Sub CommandButton1_Click()


Dim colA As Range
Dim emplCount As Integer
Set colA = ActiveSheet.Range("A:A")
Dim total_Employees

For Each cell In colA
If cell = "C" = True Then
emplCount = emplCount + 1
End If

Next
emplCount = total_Employees

MsgBox total_Employees & "Number of employees"

End sub


--
simon10810
------------------------------------------------------------------------
simon10810's Profile: http://www.excelforum.com/member.php...o&userid=35315
View this thread: http://www.excelforum.com/showthread...hreadid=550924