Me00550
07-24-2019, 11:14 AM
can someone please tell me why i am getting an error with this code and how to fix it?
Run time 424 object required
Sub but()strTitle = ""
strText = "Would you like to enter another unit"
Set YesNo = WScript.CreateObject("WScript.Shell")
intType = vbYesNo
Set YesNo = WScript.CreateObject("WScript.Shell")
intResult = YesNo.Popup(strText, 3, strTitle, intType)
Select Case intResult
Case vbYes
Sheet1.Select
Case vbNo
WScript.Echo "You clicked ""No""!"
End Select
End Sub
Run time 424 object required
Sub but()strTitle = ""
strText = "Would you like to enter another unit"
Set YesNo = WScript.CreateObject("WScript.Shell")
intType = vbYesNo
Set YesNo = WScript.CreateObject("WScript.Shell")
intResult = YesNo.Popup(strText, 3, strTitle, intType)
Select Case intResult
Case vbYes
Sheet1.Select
Case vbNo
WScript.Echo "You clicked ""No""!"
End Select
End Sub