Проверка наличия в строках столбца названия рабочей книги

Option Explicit
 
Private Sub Worksheet_Deactivate()
Dim i As Integer
Dim ListObj As ListObject
Set ListObj = ThisWorkbook.Worksheets(" ").ListObjects(" ")
With ListObj
For i = 1 To 100
  If i = Worksheets(Name) Then
  
    Range(1, i) = Range("G4").Value
    Range(2, i) = Range("G6").Value
    Exit For
  End If
Next i
End With
 
End Sub

Private Sub Worksheet_Deactivate()
Dim N_a_m_e As Name
 
Dim i As Integer
Dim ListObj As ListObject
Set N_a_m_e = Name
Set ListObj = ThisWorkbook.Worksheets(" ").ListObjects(" ")
With ListObj
For i = 1 To 100
  If i = N_a_m_e Then
  
    .Range(1, i) = Range("G4").Value
    .Range(2, i) = Range("G6").Value
    Exit For
  End If
Next i
End With
 
End Sub

Private Sub Worksheet_Deactivate()
Dim wn As String
Dim i As Integer
 
wn = ActiveWorkbook.Name
 
For i = 1 To 100
  If Cells(i, 1) = wn Then Cells(i, 2) = wn :  Exit For
Next i
 
End Sub

Option Explicit
 
Public ShGeneral As Worksheet
Public ShObj As Range
 
Public Sub Tabl_Tasks()
 
Dim t As String
Dim i As Integer
 
Set ShGeneral = ThisWorkbook.Worksheets("Разработчик")
Set ShObj = ShGeneral.Range("Задачи_tb")
 
wn = ActiveSheet.Name
u = ActiveSheet.Range("G4").Value
o = ActiveSheet.Range("G6").Value
 
    With ShObj
       For i = 1 To 100
           If .Cells(i, 3) = wn Then .Cells(i, 2) = u: .Cells(i, 1) = o: Exit For
       Next i
            
    End With
 
End Sub