Clear All Contents from Unprotected Cells Macro

[Exceldom]

Hi all,

I have a sheet that has many protected cells on it and then to the right of those protect cells are unprotected cells to put our daily usage totals in. After filling out the sheet we print it and then we need to clear the contents within the unprotected cells and start over for the next day.

I need a macro that will just clear the unprotected cells without me having to close the excel sheet and reopen it every time we need to start over.

Haven't been able to find anything specific online to show me how to do this so any help would be appreciated.

 

[Exceldom]

I figured this out. Used this code incase it helps anyone. Just added all the unprotected cells into that list, next line clears the selections, then the next line puts me back into the starting cell. Worked like a charm.

Range("D2,D5,D6,D10:D20,D25:D29,D31,D34,F5:F6,F10:F20,F25:F29,F31,F34,H37:H39,H42:H43").Select
Selection.ClearContents
Range("D2").Select