I am trying to loop through the selected sheets and clear the contents
of Range("A2:D15") of all the selected sheets. When I run this code,
it only clears the content of Sheet3. Thank you in advance for your
assistance.
================================================== =========================

Sub ClearSheets

Dim sht As Worksheet

Application.ScreenUpdating = False

Sheets(Array("Sheet3", "Sheet5", "Sheet6", "Sheet8")).Select

For Each sht In ActiveWindow.SelectedSheets

Range("A2:D15").ClearContents

Next sht

Application.ScreenUpdating = True

End Sub
================================================== ===========================