The following is a snippet of code from my prgram:

If vRsnCode < Empty Then
Select Case rCell
'Contact Code is Office Visit
Case Is = "G"
Select Case vRsnCode
'Reason Code for Complaint
Case Is = "3"
ws.Cells(iMoRow, iSpecWtRefCol + 1) = _
ws.Cells(iMoRow, iSpecWtRefCol + 1) + iComplCON

'Reason code for State II
Case Is = "7"
ws.Cells(iMoRow, iSpecWtRefCol + 2) = _
ws.Cells(iMoRow, iSpecWtRefCol + 2) + iSIICON

Case Else
GoTo errh

End Select

Case Is = "A"
Select Case vRsnCode
'Reason Code for Telephone Call
Case Is = "16"
ERROR --------- ws.Cells(iMoRow, iSpecWtRefCol + 3) = _
ws.Cells(iMoRow, iSpecWtRefCol + 3) + iTCCIRCON


'error trapping when Reason Code (vRsnCode) is not a
valid value
Case Else
errh:

MsgBox "Error" '### To be replaced with error trapping
code ###
End Select
End Select
End If


I'm getting an Object variable not set error on the marked line. That line
is nearly an exact duplicate of lines above, the only different being the
offset value and the constant, iTTCCIRCON. The constant is set as such and
shows the correct value (15) when in run mode, as do all the varibles in
that line.

Anyone see what I can't?

Thanks in advance.