How to clear range in selected multiple worksheet

[czarpogi]

Hi,

I need some help in making this code short and simple. Is there a way to do that? Thanks in advance.

Here's my code:

Sub ClearData()
With Sheets("NPS")
    .Range("A2", .Cells(.Rows.Count, .Columns.Count)).ClearContents
End With
With Sheets("QFY")
    .Range("A2", .Cells(.Rows.Count, .Columns.Count)).ClearContents
End With
With Sheets("MFY")
    .Range("A2", .Cells(.Rows.Count, .Columns.Count)).ClearContents
End With
With Sheets("W1")
    .Range("A2", .Cells(.Rows.Count, .Columns.Count)).ClearContents
End With
With Sheets("W2")
    .Range("A2", .Cells(.Rows.Count, .Columns.Count)).ClearContents
End With
With Sheets("W3")
    .Range("A2", .Cells(.Rows.Count, .Columns.Count)).ClearContents
End With
With Sheets("W4")
    .Range("A2", .Cells(.Rows.Count, .Columns.Count)).ClearContents
End With
With Sheets("W5")
    .Range("A2", .Cells(.Rows.Count, .Columns.Count)).ClearContents
End With
End Sub
[code/]

 

[czarpogi]

It works! Yes!!!.

THANK YOU SO MUCH! YOU'RE AWESOME MICHAEL!!!

No MAIT....cant test....don't have excel....so may not work !!

AAHHH....just realised....range needs to be cells

Sub MM1()
Dim sh As Variant
For Each sh In Array("NPS", "QFY", "MFY", "W1", "W2", "W3", "W4", "W5")
Sheets(sh).Activate
Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).ClearContents
Next sh
End Sub