Wrote this:

Sub CountReasonContactCode()
Dim Wksht As Worksheet
Dim rReason As Range
Dim lRow As Long
Dim lCurRow As Long
Dim rCell As Range
Dim l16Rct As Long
Dim l16Act As Long
Dim l16BGct As Long
Dim lCt As Long
Dim lTotNameRow As Long

lRow = 107
lTotNameRow = 4
l16Rct = 0
l16Act = 0
l16BGct = 0


Do Until Wksht.Name = "Totals" <---Object Variable or Withblock
variable not set
For Each Wksht In ThisWorkbook.Worksheets

I tried setting wksht = to activeworkbook.worksheets, but that gave me
another error. Any suggestions?
Thanks again!