■非Activeシートのセル遷移

ActiveではないSheetのSelectionCell位置を変更したい..
..ニーズは全くないと思いますが :)

例えばSheetが２枚以上ある新規Bookの標準モジュールで

Sub test()
　　Range("IV65536").Copy
　　Sheets("Sheet1").Range("X1").PasteSpecial xlPasteComments
　　Application.CutCopyMode = False
End Sub

これをSheets("Sheet1")がActiveではない状態で実行したとして、
Sheet1の選択セルがX1に変更されます。
PasteSpecialメソッドの特性を悪用。
xlPasteComments..は一番無難そうなオプションかと。

ちなみにSheet1にSelectionChangeイベントがあると反応します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　MsgBox Target.Address(external:=True)
End Sub



#雑記というよりゴミでしたか
#久しぶりの書き込みだったのに...orz