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