Option Explicit
'added 3/21/2017
' Clear Data from MDS Equipment Detail Worksheet
Sub Clear_MDS()
Set wsMDS = Worksheets("MDS Equipment Detail")
If MsgBox("Are you SURE you want to clear all the data on " & wsMDS.Name & "???", vbQuestion + vbYesNo + vbDefaultButton2, "Clear " & wsMDS.Name) = vbNo Then Exit Sub
Application.EnableEvents = False
UnProtectMDS
With wsMDS
Range(.Rows(rowDataStartMDS), .Rows(.UsedRange.Rows.Count)).Clear
End With
ProtectMDS
Application.EnableEvents = True
End Sub
'added 3/21/2017
' Clear Data from MOST Equipment Add Worksheet
Sub Clear_MOST()
Set wsMOST = Worksheets("MOST Equipment Add")
If MsgBox("Are you SURE you want to clear all the data on " & wsMOST.Name & "???", vbQuestion + vbYesNo + vbDefaultButton2, "Clear " & wsMOST.Name) = vbNo Then Exit Sub
With wsMOST
Range(.Rows(rowDataStartMOST), .Rows(.UsedRange.Rows.Count)).Clear
End With
End Sub
'added 3/21/2017
' Clear Data from Worksheet
Sub Clear_Worksheet()
Set wsWorksheet = Worksheets("Worksheet")
If MsgBox("Are you SURE you want to clear all the data on " & wsWorksheet.Name & "???", vbQuestion + vbYesNo + vbDefaultButton2, "Clear " & wsWorksheet.Name) = vbNo Then Exit Sub
With wsWorksheet
Range(.Rows(rowDataStartMOST), .Rows(.UsedRange.Rows.Count)).Clear
End With
End Sub