Ajuda celular linhas e colunas excel VBA

[eddie1106]

Pessoal estou querendo fazer uma macro para quando eu der um duplo click em uma célula a coluna e linha daquela célula fique selecionada, com isso fiz a macro abaixo:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim r As Integer

Dim c As Integer

r = Target.Row

c = Target.Column

Range(Rows®, Columns©).Select

End Sub

Mas quando dou o duplo-click em qualquer célula a planilha inteira fica seleciona e não só a linha e a coluna daquela célula. Alguém sabe como posso resolver isso.

valeu

[eddie1106]

Pessoa fiz uma alteração utilizando a função Union, mas mesmo assim não continua dando certo, agora ele seleciona a linha certa mas sempre a coluna A, vai o código

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim r As Integer

Dim c As Integer

Dim LINCOL As Range

r = Target.Row

c = Target.Column

Set LINCOL = Union(Rows®, Columns©)

LINCOL.Select

End Sub