Code: Select all
Worksheets("Sheet1").Activate
ActiveSheet.UsedRange.Select
' Clear the content
Sheets(outSht).UsedRange.Select
Selection.ClearContents
Code: Select all
Worksheets("Sheet1").Activate
ActiveSheet.UsedRange.Select
' Clear the content
Sheets(outSht).UsedRange.Select
Selection.ClearContents