Selecting and deleting named range in Workbook

[kapilg89]

Hello

I have been writing a code to select all the sheets in my workbook and then delete the cells in which data has to be input to create a new blank template every time to reuse.
I named the range in which data can be input as "NeedDel" whose scope is restricted to the sheet itself.
The purpose of this code is that it will delete the data contained in the range "NeedDel" and make it blank to be used to create a new blank template.

I wrote the following code:

Sub NeedDel()
Sheets("Summary_Sheet_FC").Range("NeedDel").Select
Sheets("Summary_Sheet_INR").Range("NeedDel").Select
Sheets("Procured_Parts_&_Matls_3").Range("NeedDel").Select
Sheets("Process_4").Range("NeedDel").Select
Sheets("Logistics_&_Others_5").Range("NeedDel").Select        Selection.ClearContents    
Sheets("Summary_Sheet_FC").Range("M8").Select
End Sub

But it didn't work as expected can you please help

 

[patel45]

Sub NeedDel()
Sheets("Summary_Sheet_FC").Range("NeedDel").ClearContents
Sheets("Summary_Sheet_INR").Range("NeedDel").ClearContents
Sheets("Procured_Parts_&_Matls_3").Range("NeedDel").ClearContents
Sheets("Process_4").Range("NeedDel").ClearContents
Sheets("Logistics_&_Others_5").Range("NeedDel").ClearContents  
Sheets("Summary_Sheet_FC").Range("M8").Select
End Sub

 

[kapilg89]

Thanks Worked like a charm...