Clear contents of another sheet and reactivating the current sheet

Sub ClearContents()

 

 

Application.ScreenUpdating = False

 

ActiveWorkbook.Sheets(2).Activate

 

Cells.Select

 

Selection.ClearContents

 

ActiveWorkbook.Sheets(1).Activate

 

Range("a1").Select

 

Application.ScreenUpdating = True

 

 

End Sub