Macro on multiple worksheets

[Robandemmy]

I have a simple macro assigned to a button used to clear the contents of a specific range of cells. My problem is that I would like to have the same button on multiple worksheets but the code i am using will clear all worksheets:

Sub Clear_Cells()
Sheets("Jan").Range("E10:G12,E14:G22,E24:G25,E27:G50,E52:G52,E53:G57,E59:G62,E64:G64,D2,E70:G70,E72:G72").ClearContents
Sheets("Feb").Range("E10:G12,E14:G22,E24:G25,E27:G50,E52:G52,E53:G57,E59:G62,E64:G64,D2,E70:G70,E72:G72").ClearContents
End Sub

Is there a way to make this happen without assigning a separate macro to each button?

 

[mumps]

Instead of using the sheet name, use Activesheet. The macro will apply only to the active sheet.

Sub Clear_Cells()
      Activesheet.Range("E10:G12,E14:G22,E24:G25,E27:G50,E52:G52,E53:G57,E59:G62,E64:G64,D2,E70:G70,E72:G72").ClearContents
End Sub