I am trying to loop through a range and count the number of time a cell
contains the letters"CPCT". I am using the right function since they always
occur at the end of the string. My cod keeps getting snagged he If
xlApp.WorksheetFunction.Right(r1.Value, 4) = "CPCT" Then

Any Ideas? My full code is below
Dim r1 As Range
Dim Count As Integer
Count = 0
For Each r1 In xlApp.Sheets("Resource Info").Range("A4:A500")
If xlApp.WorksheetFunction.Right(r1.Value, 4) = "CPCT" Then
Count = Count + 1
End If
Next