Sub Sample6()
'A1:C10の範囲を範囲選択します
Range("A1:C10").Select
'アクティブセルのアドレスをダイアログで表示します
MsgBox ActiveCell.Address
'選択範囲を変えずにアクティブセルだけをB5にします。
Range("B5").Activate
'アクティブセルのアドレスをダイアログで表示します
MsgBox ActiveCell.Address
'選択範囲を解除して、B5のみを選択します。
Range("B5").Select
End Sub