Sub CLEARROW1()
ActiveWorkbook.Save
ActiveSheet.Unprotect
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.
With Sheets("CURRENT DRIVER DATA")
.Activate
.Unprotect
.Range("A1:C1,E1,G1:AC1,AE1:AF1,AG1:AN1,AS1:AZ1,BE1:BL1,BQ1:BX1,CC1:CJ1," & _
"CO1:CV1,DA1:DH1,DM1:DT1,DY1:EF1,EK1:ER1,EW1:FD1,FI1:FP1").Offset(ActiveCell.Row - 1, 0).ClearContents
.Range("C3").Select
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End If
End Sub