When I receive the error and go to debug mode, it points me to the Case Else statement in the Case Select code below. It's in an event procedure for a cmdSend on Click button.
Select Case .Fields("FYI_RFI"

'Send message
Case True 'FYI status = bcc to supvr and OCG supvr
DoCmd.SendObject acSendNoObject, , acFormatRTF, _
To:=strTo, _
Bcc:=strCC & ";" & DLookup("OCGEmail", "tblGenlInfo"

, _
Subject:="Procurement Card Findings", _
MessageText:=DLookup("FYIText", "tblGenlInfo"

& strMsg, _
EditMessage:=False
Case Else 'RFI status = cc to supvr & bcc to OCG supvr
DoCmd.SendObject acSendNoObject, , acFormatRTF, _
To:=strTo, _
Cc:=strCC, _
Bcc:=DLookup("OCGEmail", "tblGenlInfo"

, _
Subject:="Procurement Card Findings", _
MessageText:=DLookup("RFIText", "tblGenlInfo"

& strMsg, _
EditMessage:=False
End Select