my workbook works fine, until someone decides to skip answering the nessesary questions off of the boxes,HOW Can I put a critical box if they enter a wrong value or if no data is entered? this is what I have
Sub GetDate()
Dim Message As String, Title As String
Dim Default As String, Myvalue As String
Message = "Please enter next Schedule Date (EXAMPLE xx/xx/xx)"
' Set prompt.
Title = "Date input"
' Set title.
Default = "Enter Date Here!"
' Set default.
' Display message, title, and default value.
Myvalue = InputBox(Message, Title, Default)
Range("D3").Select
ActiveSheet.Unprotect
ThisWorkbook.Sheets("SCHEDULE").Range("D3").Value = Myvalue
Range("D3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("M7").Select
End Sub
any help is apreciated
Sub GetDate()
Dim Message As String, Title As String
Dim Default As String, Myvalue As String
Message = "Please enter next Schedule Date (EXAMPLE xx/xx/xx)"
' Set prompt.
Title = "Date input"
' Set title.
Default = "Enter Date Here!"
' Set default.
' Display message, title, and default value.
Myvalue = InputBox(Message, Title, Default)
Range("D3").Select
ActiveSheet.Unprotect
ThisWorkbook.Sheets("SCHEDULE").Range("D3").Value = Myvalue
Range("D3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("M7").Select
End Sub
any help is apreciated