Sub FnGetSheetsName()
Dim mainworkBook As Workbook

Set mainworkBook = ActiveWorkbook

For i = 1 To mainworkBook.Sheets.Count
    mainworkBook.Sheets("Main").Range(“A” & i) = mainworkBook.Sheets(i).Name
    mainworkBook.Sheets("Main").Range(“B” & i) = mainworkBook.Sheets(i).Range("BV132").Value
Next i

End Sub

=IF(AND($P$4:$P$11 = $F4;$Q$4:$Q$11 = G$3) ; "x" ; "") 

 Sub Auto_Open()   
    Dim xWs As Worksheet
    
    For Each Wks In ThisWorkbook.Worksheets
         On Error Resume Next

         If Wks.AutoFilterMode Then
               Wks.AutoFilterMode = False
         End If
    Next Wks
 End Sub

Sub Tables()

Sheets(1).Select

For i = 1 To Sheets.Count

   Sheets(i).Activate

   Range("A1").Select

   Range(Selection, Selection.End(xlDown)).Select

   Range(Selection, Selection.End(xlToRight)).Select

   If ActiveSheet.ListObjects.Count < 1 Then

       ActiveSheet.ListObjects.Add.Name = ActiveSheet.Name

   End If

Next i

End Sub