Many of us read these posts through Usenet/news reader set to text only.
Consequently, no text is bold or italic, so we have no idea of the location
of the problem.

I assume you initial check is a series of (Condition1 And Condition2) Or
(Condition3 And Condition4).. etc
Not like: (Condition1 And (Condition2 Or Condition3)) And Condition4..
The brackets help make it clear.

As RBS suggested, check the ToolsReferences in the VB IDE and uncheck any
that are marked "Missing".

NickHK

"wilro85" wrote in
message ...

I'm using the following code and it works on some computers and doesn't
work on others.

The computers that it doesn't work on generates the same error in the
same place. (Bolded). I had it suggested to add the "Dim MyCellValue
As String" into the code and I have tried it in two places (not at the
same time) which are both shown in italics.

Does anyone have any idea what is going on? Why would it work on some
computers but not on all of them?


Sub CommandButton2_Click()
-Dim MyCellValue As String-
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
-Dim MyCellValue As String-
*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/Cove
rage%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