'Код в надстройке
Private WithEvents xlApp As Application

Private Sub Workbook_Open()
    Set xlApp = Application
End Sub

Private Sub xlApp_WindowActivate(ByVal wb As Workbook, ByVal Wn As Window)
    MsgBox ActiveSheet.Name 'Покажет имя листа только в книге надстройки
    MsgBox xlApp.ActiveSheet.Name 'Покажет имя активного листа в открывающейся книге
End Sub

thisworkbook.activate
userform1.show vbmodeless

listbox1.rowsource = Range("[Report.xls]Sheet1!Sales")

Option Explicit
Sub test2()
Dim ACTrng As Range, ACTcll As Range, STRlen&, STRlenMAX&, FSTrez As String, FNDpar As Range

Set ACTrng = ThisWorkbook.Worksheets("Лист2").ListObjects("TAB_3").ListColumns(1).DataBodyRange

With ThisWorkbook.Worksheets("Лист2")

'1й проход - находим ячейки с наибольшим кол-вом символов
Set ACTcll = ACTrng.Find("*", , xlValues, xlWhole, xlByColumns)
    STRlenMAX = Len(.Cells(ACTcll.Row, ACTcll.Column))
       
        If Not ACTcll Is Nothing Then
            FSTrez = ACTcll.Address
                
                Do
                    Set ACTcll = ACTrng.FindNext(ACTcll)
                    STRlen = Len(.Cells(ACTcll.Row, ACTcll.Column))
                        If STRlen > STRlenMAX Then STRlenMAX = STRlen
                Loop Until FSTrez = ACTcll.Address
        End If

'2й проход - находим самую нижнюю в древе подсборку
Set ACTcll = ACTrng.Find("*", , xlValues, xlWhole, xlByColumns)
    If Not ACTcll Is Nothing Then
            FSTrez = ACTcll.Address
                Do
                    Set ACTcll = ACTrng.FindNext(ACTcll)
                    STRlen = Len(.Cells(ACTcll.Row, ACTcll.Column))

                        If STRlen = STRlenMAX Then
                            MsgBox ACTcll
                            
                            'Set FNDpar = ACTrng.Find(Left(ACTcll, STRlen - 2), , xlValues, xlWhole, xlByColumns)
                            'MsgBox FNDpar
                        End If
                        
                        
                Loop Until FSTrez = ACTcll.Address
        End If
End With
End Sub

Set fcell = ThisWorkbook.Worksheets("Лист1").Columns("C").Find("фыва", , xlValues, xlPart).row

fcell.row

Option Explicit
Sub kkk()
Dim fcell As Range

Set fcell = ThisWorkbook.Worksheets("Лист1").Find("фыва", , xlValues, xlPart).Row
MsgBox fcell
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If ActiveSheet.Name = "MB" Then user_menu.Show
Else
user_menu.Hide
end if
End Sub

ThisWorkbook.Worksheets("MB").ListObjects("tech_vis").ListRows(ThisWorkbook.Worksheets("MB").ListObjects("tech_vis").ListRows.Count).Range.Select

ThisWorkbook.Worksheets("MB").ListObjects("tech_vis").DataBodyRange.Row(ListRows.Count).Select