ClearContents question

This one works, but I don't like it:

Sheets(1).Activate
Worksheets(1).Range(Cells(2, 1), Cells(8888, 19)).Select
Selection.ClearContents
Range("A1").Select
Sheets(2).Activate
Worksheets(2).Range(Cells(2, 1), Cells(8888, 19)).Select
Selection.ClearContents
Range("A1").Select

This one doesn't:

With Worksheets(1)
    .Range(Cells(2, 1), Cells(8888, 19)).ClearContents
End With

With Worksheets(2)
    .Range(Cells(2, 1), Cells(8888, 19)).ClearContents
End With

Just need some streamlining, a good solution.

Sheets(1).Range("A2:S8888").ClearContents
Sheets(2).Range("A2:S8888").ClearContents

or

[Sheet1!A2:S8888].clearcontents
[Sheet2!A2:S8888].clearcontents

or

sheets("sheet1").cells(2,1).resize(8887,19).clearcontents
sheets("sheet2").cells(2,1).resize(8887,19).clearcontents

Gabor, I pointed out in your ealier post about referencing the actual sheets properly