Doesn't recognize worksheet

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

For Each Wksht In ActiveWorkbook <---ERROR

Doesn't recognize method or property error
Any suggestions?
Thanks!

Give this a try...

For Each Wksht In ActiveWorkbook.Worksheets
--
HTH...

Jim Thomlinson


"davegb" wrote:

> 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
>
> For Each Wksht In ActiveWorkbook <---ERROR
>
> Doesn't recognize method or property error
> Any suggestions?
> Thanks!
>
>

A Worksheet is not a member of Workbook (Workbook isn't a collection and has
no members).
A Worksheet is a member of the ActiveWorkbook.Worksheets collection.

For Each Wksht In ActiveWorkbook.Worksheets

HTH,
--
George Nicholson

Remove 'Junk' from return address.


"davegb" <[email protected]> wrote in message
news:[email protected]...
> 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
>
> For Each Wksht In ActiveWorkbook <---ERROR
>
> Doesn't recognize method or property error
> Any suggestions?
> Thanks!
>