Friday, 16 January 2015

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

No comments:

Post a Comment