Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If ActiveSheet.Name = "ТОВАР" Then
        FormShow
    Else
        Unload frmSearch
    End If
    If ActiveSheet.Name = "ТОВАР 2" Then
        FormShow
    Else
        Unload frmSearch
    End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If UCASE(ActiveSheet.Name) = "ТОВАР" Or UCASE(ActiveSheet.Name) = "ТОВАР 2" Then
        FormShow
    Else
        Unload frmSearch
    End If
End Sub

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 On Error Resume Next
 
 If UCase(ActiveSheet.Name) = "ТОВАР" Or UCase(ActiveSheet.Name) = "ТОВАР 2" Then
     Unload frmSearch
     FormShow
  Else
     Unload frmSearch
 End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 FormShow
End Sub

Public Function GetHwnd(Var1 As Object, Optional Var2 As Boolean = False) As Long
    Dim Var3 As Long
    Dim Var4 As Long
    Dim Var5 As Long
    Dim PosX As Long
    Dim PosY As Long
    PosX =  10                                          'Расположение формы на листе
    PosY =  45                                         'Расположение формы на листе
    Var3 = FindWindow("ThunderDframe", Var1.Caption)
    If Var2 Then
        Var4 = GetWindowLong(Var3, GWL_STYLE)
        Var4 = Var4 And Not WS_CAPTION And Not WS_BORDER
        Var5 = SetWindowLong(Var3, GWL_STYLE, Var4)
        Var5 = SetWindowLong(Var3, GWL_EXSTYLE,  0 )
        SetWindowPos Var3,  0 , PosX, PosY,  0 ,  0 , SWP_NOSIZE Or SWP_NOOWNERZORDER Or SWP_NOZORDER Or SWP_FRAMECHANGED
    End If
    GetHwnd = Var3
End Function