Sure,
you haven't set MonWksht to anything.

So you have an object variable undefined/Not Set.

--
Regards,
Tom Ogilvy
"davegb" wrote in message
oups.com...
I fixed it, but when I run it, I get an "Object variable or with block
variable not set" error.

Sub CountMonth()
Dim CountArray(1 To 12, 1 To 7)
Dim SrcWksht As Worksheet
'Dim SrcWkshtName As String
Dim MonWksht As Worksheet
Dim strCntctDate As String
Dim strCntctMo As String


Set SrcWksht = ThisWorkbook.Sheets("Sheet1")

MonWksht.Name = SrcWksht.Name & " - Monthly"<---error

Any suggestions?