Having trouble creating a button that counts when two strings are side-by-side

[bananius]

Hi everyone,

I am completely new to Excel VBA so I am really hoping I can get some help *thank you in advance*.

I have an excel worksheet that has different string values in the cells and I have to specifically count when the values "NSW" are found beside each other (i.e. NSW, NSW) in the excel sheet. I have only created a function so far (not sure if it is right...) but I I really need to do is create a command button that would show the results of the count in a message box, but I am stuck. Any help would be greatly appreciated!

Here is what I have so far:

Function CountIfAll(Crit1, Crit2, Rng As Range) As Long
Dim rCell As Range
    
    CountIfAll = 0
    
    For Each rCell In Rng
        If rCell = Crit1 And rCell.Offset(, 1) = Crit2 Then
            CountIfAll = CountIfAll + 1
        End If
    Next rCell
End Function

[alansidman]

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(Because you are new to the forum, I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

[bananius]

Thank you Alan, I will read through the forum rules.