Looping through selected worksheets and delete a range (e.g., A2:D15)

[jsaynavong]

I am trying to loop through the selected sheets and clear the contents
of Range("A215") 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("A215").ClearContents

Next sht

Application.ScreenUpdating = True

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

 

[Mike]

Maybe something like this
Sub ClearSheets()
Dim x As Object
Sheets(Array("Sheet3", "Sheet5", "Sheet6", "Sheet8")).Select
For Each x In ActiveWindow.SelectedSheets
x.Range("A215").ClearContents
Next x
End Sub