[[20160524105814]]　『アクティブシート変えないで別シートマクロ実行』（きき）　ページの最後に飛ぶ

『アクティブシート変えないで別シートマクロ実行』（きき）

教えてください

下記の内容をアクティブシートを変えないで
行いたいです
どの様に書けばいいのでしょうか
ご教示お願いいたします

Sub Macro9()

    Worksheets("Sheet6").Select
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).ClearContents
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

    With Worksheets("Sheet6")
        .Range(.Range("A2"), .Range("A2").SpecialCells(xlLastCell)).ClearContents
    End With

（x） 2016/05/24(火) 11:17

ちょっと修正m(__)m

    With Worksheets("Sheet6")
        .Range(.Range("A2"), .Cells.SpecialCells(xlLastCell)).ClearContents
    End With

（x） 2016/05/24(火) 11:30

x様
有難う御座いました
（きき） 2016/05/24(火) 11:33

コメント返信：