Once more into the breech dear friends...

Contrary to what I thought, my problem with the variable for sending
the email has not been resolved. However, I have narrowed down what is
going on, I just don't know how to fix it.

Please see the snipet below:

Code:
--------------------
   Private Sub CommandButton2_Click()
 '
 '
 'Secures the quote, emails it to the client via a user option, and saves the file
 'in an emailable form for later use.
 '
 'Step 1 - Selects the quote sheet as the active sheet
 Sheets("QUOTE").Select
 '
 'Prep 1 - Declares the varibles
 Dim PMNm As String
 Dim CtNm As String
 Dim CtEA As String
 Dim Answer
 Dim OutApp As Outlook.Application
 Dim OutMail As Outlook.MailItem
 Dim WBok As Workbook
 Dim StDt As String
 '
 '
 'Prep 2 - Defins the varibles
 CtNm = Range("O20").Text
 CtEA = Range("O25").Text
 PMNm = Range("I12").Text
--------------------

Using the "Locals window" I steped through the code, and after this
line, the variables had not been populated with a value. So, by the
time I got to...

Code:
--------------------
   'Step 3 - Displays a message informing the user that the quote has been protected and gives
 'them an option to email the quote now
 Answer = MsgBox("The quote has been successfully protected and is now safe to email." & _
 Chr(13) & "Would you like to send the quote now?", vbYesNo, "Security Placement Complete!")
 '
 'Defines the behavior for the Yes and No buttons
 If Answer = vbYes Then
 Application.ScreenUpdating = False
 Sheets("QUOTE").Copy
 Set WBok = ActiveWorkbook
 With WBok
 .SaveAs "Prepared Quote - " & ThisWorkbook.Name
 Set OutApp = CreateObject("Outlook.Application")
 Set OutMail = OutApp.CreateItem(olMailItem)
 With OutMail
 .To = CtEA
 .CC = ""
 .BCC = ""
 .Subject = "Your quote is ready."
 .Body = "The quote you requested is ready for your review.Please see the attached document." _
 & Chr(13) & "Thank you for choosing STL Mobile, we look forward to doing business with you." _
 & Chr(13) & "Regards," & Chr(13) & PMNm
 .Attachments.Add WBok.FullName
 .Attachments.Add ("X:\_FEE SCHEDULE & QUOTE MODULE\" & "STL Terms and Conditions" & ".xls")
 .Send
 End With
 .ChangeFileAccess xlReadOnly
 Kill .FullName
 .Close False
 End With
 Application.ScreenUpdating = True
 Set OutMail = Nothing
 Set OutApp = Nothing
 ActiveWorkbook.SaveAs Filename:="X:\FEE SCHEDULE & QUOTE MODULE\Created Quotes\" & "Email Version of " & ThisWorkbook.Name & ".xls"
 MsgBox "The quote has been successuflly emailed to the address listed.", 64, "Process Complete."
 Else
 ActiveWorkbook.SaveAs Filename:="X:\FEE SCHEDULE & QUOTE MODULE\Created Quotes\" & "Email Version of " & ThisWorkbook.Name & ".xls"
 MsgBox "The quote has been saved in a form suitable for email." & Chr(13) & "Please use the file named :  " & ThisWorkbook.Name & " when emailing the client.", 64, "Process Complete."
 End If
 End Sub
--------------------

Where the variables are called, there is no value to return, and so I
end up with the error message saying that the To, CC, or BCC must be
populated with something.

The the cells that the code should be reading have values calculated
from formulas, but in a diffrent module, the very same cells are used
in variables with the same name with total success.

Any ideas why the values are not being read? I am at a loss.

Amber:)