Here is a snippet of code. What I want to do is add in another criteria and have been unable to figure out how to do it.


Dim Ct As Integer
Ct = 0

If ckHome2 = True Then
Range("d2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
If ActiveCell.Value = "Home" Then
Ct = Ct + 1
txtHome2.Text = Ct
End If

I want to add in that if a value in Column("C") is "Admission" Then
the : txtHome2.Text = Ct

So the criteria is that ckHome2 = True, The value in Column("D") is "Home" and the value in Column("C") is "Admission"
So it would have to loop through column C also to determine which ones have the value as "Admission".

I have been working on this for weeks to no avail. Can someone please help me with this. Thanks.