Sub test() If IsEmpty(Worksheets("Sheet1")) Then Else Worksheets("sheet1").UsedRange.ClearContents End If End Sub