Clear a range of cells better than this?

[TheWennerWoman]

Hello,

I have a sheet with a button on it "clear template". If the user presses it, a macro is triggered that clears the contents of about forty cells. At the moment I have a raft of

    Range("D6").Select
    Selection.ClearContents
    
    Range("D8").Select
    Selection.ClearContents
    
    Range("D10").Select
    Selection.ClearContents

etc. Is there a way I can put all the cells into a range and then just clear contents that way?

Many thanks!

 

[Fluff]

How about

Sub TheWennerWoman()
   Range("D6, D8, D10").ClearContents
End Sub

 

[TheWennerWoman]

How about

Sub TheWennerWoman()
   Range("D6, D8, D10").ClearContents
End Sub

Brilliantly simple, many thanks!

 

[Fluff]

You're welcome & thanks for the feedback.