Private Sub Workbook_Open()
With Sheets("Sheet1")
.Protect userinterfaceonly:=True
.EnableSelection = xlUnlockedCells
End With
MsgBox "This is Meridian Port Services (MPS) Terminal's Calculation Data." _
& vbCrLf & "Please INPUT the following:" _
& vbCrLf & "The Quantity of Container(s) to be Cleared." _
& vbCrLf & "If Examination, input the Quantity of Container(s) to be Examined." _
& vbCrLf & "If Rent Charges, Input the Vessels' Discharge Date(s) and the Date(s) that the Container(s) will be Loaded." _
& vbCrLf & "Where there are more than 1 Container for RENT-Related issues, every Container info should be recorded on a new line." _
& vbCrLf & "Thank You."
End Sub