It sound there is a missing reference.
Look in the VBE under Tools, References.
Maybe you need to save the workbook without the reference and add it in code
in the Workbook_Open event.

RBS



"wilro85" wrote in
message ...

Same error, but this time it highlighted a different spot. See bold.

Sub CommandButton2_Click()
Dim MyCellValue As Variant
If CheckBox2.Value = True And Range("A25").Value = "" Or
CheckBox5.Value = True And Range("a43").Value = "" Or _
Worksheets("page1").CheckBox2.Value = True And
Worksheets("page1").Range("a28").Value = "" Or _
Worksheets("page1").CheckBox3.Value = True And
Worksheets("page1").Range("a34").Value = "" Then
MsgBox ("You have indicated a PO number, ACE number, Project Module
Number, or Customer Estimate" & vbCrLf & _
"exists but did not specify a value. Please correct this mistake.")
ElseIf Range("a49").Value = "" Then MsgBox ("Due Date Required")
Else
MyCellValue = Sheets("Page1").Range("a19").Value
*LResponse =* MsgBox("Do you wish to submit the Engineering Request
Form for " & MyCellValue & "?", vbYesNo, "Day Wireless Systems
Engineering")
If LResponse = vbYes Then
Call WBunlock
Sheets("ERFSummary").Visible = True
Sheets("ERFSummary").Range("B39").Value = Range("A43").Value
ActiveWorkbook.SendMail ", _
"Engineering Request Form " & MyCellValue,
True
MsgBox "The Form has been Sent", vbOKOnly, "Day Wireless
Systems Engineering"
If CheckBox3.Value = True Then
ActiveWorkbook.FollowHyperlink
Address:="http://sharepoint.dayintranet.com/engineering/Project%20Forms/Coverage%20Map%20Request%20Form.XLT",
_
NewWindow:=True
End If
Else
MsgBox "The Form was Not Sent", vbOKOnly, "Day Wireless Systems
Engineering"
End If
End If
End Sub


--
wilro85
------------------------------------------------------------------------
wilro85's Profile:
http://www.excelforum.com/member.php...o&userid=26935
View this thread: http://www.excelforum.com/showthread...hreadid=562641