Sub Auto_Open() With Application .Calculation = xlAutomatic .MaxChange = 0.001 .CellDragAndDrop = False End With disableCutApplication.EnableEvents = True'hidegridsmsginit = "Green cells are for data entry" & Chr(13)msginint = msginit & "CAUTION : DO NOT USE CTRL X OR CUT PASTE WHILE DATAENTRY. " & Chr(13)msginit = msginint & "Red labels indicate compulsory fields" & Chr(13)'msginit = msginint & "CLICK THE BUTTON ON TOP LEFT (With Tick Mark) TO CHECK THE ERRORS IN A SHEET" & Chr(13)MsgBox (msginit)MsgBox "Please enable macros to be able to use the excel utility"End Sub