View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
RB Smissaert RB Smissaert is offline
external usenet poster
 
Posts: 2,452
Default Error varying from System to System

What is the error you get?
Try:
Dim MyCellValue As Variant

RBS

"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/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