Sub CLEARROW1()
'
If MsgBox("This is your friendly Lon-bot, letting you know that if you click YES, this driver will be PERMANENTLY removed from the CURRENT DRIVER DATA tab. ARE YOU SURE YOU WANT TO DO THIS, THIS CANNOT BE UNDONE!", vbYesNo) = vbYes Then
' CLEARROW1 Macro
' Use this MACRO to remove a driver from ROW 1 of the CURRENT DRIVER DATA without removing formulas or harming this spreadsheet set.
'
Sheets("CURRENT DRIVER DATA").Select
ActiveSheet.Unprotect
Range("A3:C3").Select
Selection.ClearContents
Range("E3").Select
Selection.ClearContents
Range("G3:AC3").Select
Selection.ClearContents
Range("AE3:AF3").Select
Selection.ClearContents
Range("AG3:AN3").Select
Selection.ClearContents
Range("AS3:AZ3").Select
Selection.ClearContents
Range("BE3:BL3").Select
Selection.ClearContents
Range("BQ3:BX3").Select
Selection.ClearContents
Range("CC3:CJ3").Select
Selection.ClearContents
Range("CO3:CV3").Select
Selection.ClearContents
Range("DA3:DH3").Select
Selection.ClearContents
Range("DM3:DT3").Select
Selection.ClearContents
Range("DY3:EF3").Select
Selection.ClearContents
Range("EK3:ER3").Select
Selection.ClearContents
Range("EW3:FD3").Select
Selection.ClearContents
Range("FI3:FP3").Select
Selection.ClearContents
Range("C3").Select
Sheets("CURRENT DRIVER DATA").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub