Sub Clear_All()
Dim aRange, bRange, cRange, dRange, eRange, fRange As Range
Set aRange = Sheets("Documentation").Cells("L2:M85,C3:K5,C7:K9,C11:K13,C15:K17,C19:K21,C23:K25,C27:K29,C31:K33,C35:K37,C39:K41,C43:K45,C47:K49,C51:K53,C55:K57,C59:K61,C63:K65,C67:K69,C71:K73,C75:K77,C79:K81,C83:K85") 'Documentation Inputs
Set bRange = Sheets("Personnel").Cells("L2:M61,C3:K5,C7:K9,C11:K13,C15:K17,C19:K21,C23:K25,C27:K29,C31:K33,C35:K37,C39:K41,C43:K45,C47:K49,C51:K53,C55:K57,C59:K61") 'Personnel inputs
Set cRange = Sheets("Site_Readiness").Cells("L2:M97,C3:K5,C7:K9,C11:K13,C15:K17,C19:K21,C23:K25,C27:K29,C31:K33,C35:K37,C39:K41,C43:K45,C47:K49,C51:K53,C55:K57,C59:K61,C63:K65,C67:K69,C71:K73,C75:K77,C79:K81,C83:K85,C87:K89,C91:K93,C95:K97") 'Site Readiness inputs
Set dRange = Sheets("Information").Cells("C4:C7") 'Removes Project Information
Set eRange = Sheets("Actions").Cells("AJ48:BV62") 'Removes Executive Summary
Set fRange = Sheets("Attendees").Cells("B5:E37,G5:G37") 'Clears Attendance Register
aRange.ClearContents
bRange.ClearContents
cRange.ClearContents
dRange.ClearContents
eRange.ClearContents
fRange.ClearContents
End Sub
All help appreciated.
Bookmarks