Vb.net Eklenti(excel Sütun Ve Sair Secme)

Merhaba.
Vb.net ile eklenti yapmaya çalışıyorum ve yeni video izleyerek bişeyler yaptım.
Yapmak istediğim excelin hangi hücresine tıklanınca onun ilgili satır ve sütunları seçilsin alttaki kod bu işi yapıyor lakin seçmiyor.


Application.ActiveSheet.range(strRange).select burasını ayarlayamadım sanırım.

Imports Microsoft.Office.Interop.Excel



Public Class ThisAddIn



    Private Sub Application_SheetSelectionChange(Sh As Object, Target As Range) Handles Application.SheetSelectionChange

        Dim strRange As String



        strRange = Target.Cells.Address & "," &

              Target.Cells.EntireColumn.Address & "," &

              Target.Cells.EntireRow.Address

        Application.ActiveSheet.range(strRange).select

    End Sub

End Class

Mesela D:5 seçildi. O zaman
5.satır A dan sonsuza kadar ve 
D sutunu 1 den sonsuza kadar
Seçilecek değil mi

(09/05/2020, 04:27)accessman yazdı: Mesela D:5 seçildi. O zaman
5.satır A dan sonsuza kadar ve 
D sutunu 1 den sonsuza kadar
Seçilecek değil mi

Evet abey.Excelde oluyor burda tanıtamadım alete.
D5 seçilirse 5.satırsağı ve solu ve D sütun yukarısı aşağısı seçilecek.
Vb.net ile ribbon menü ve com eklentiler yapıp setup yapacağım.İstediklerim olursa forumdada paylaşırım.

Kodları alttaki gibi değiştirdim yine olmadı.
Dim hucre As Range = sayfa.Range("A:Z") bu şekilde çalışıyor.Örnek sadece
Dim hucre As Range = sayfa.Range(strRange) bu şekilde çalışmıyor.

Imports Microsoft.Office.Interop.Excel



Public Class ThisAddIn



    Private Sub Application_SheetSelectionChange(Sh As Object, Target As Range) Handles Application.SheetSelectionChange

        Dim aktifsayfa As Worksheet = Globals.ThisAddIn.Application.ActiveWorkbook.Worksheets(1)

        Dim sayfa As Microsoft.Office.Tools.Excel.Worksheet = Globals.Factory.GetVstoObject(aktifsayfa)

        Dim strRange As String = Target.Cells.Address & "," & Target.Cells.EntireColumn.Address & "," & Target.Cells.EntireRow.Address

        'Dim hucre As Range = sayfa.Range(strRange)

        Dim hucre As Range = sayfa.Range("A:Z")

        hucre.Select()

    End Sub

End Class

VB.net uygulamanızı eklermisiniz...

Heralde doğru yüklüyorumdur.
Pek bilgim yok.C sürücüsüne atmıştım programla.