Sub convert_tabs_PDF()
Dim sh1 As Worksheet, sh As Worksheet, c As Range, shs() As Variant, n As Long
Set sh1 = Sheets("[COLOR=#ff0000]Sheet1[/COLOR]")
n = 0
For Each c In sh1.Range("A1", sh1.Range("A" & Rows.Count).End(xlUp))
If c.Offset(, 1) Then
For Each sh In Sheets
If LCase(sh.Name) = LCase(c.Value) Then
ReDim Preserve shs(n)
shs(n) = sh.Name
n = n + 1
Exit For
End If
Next
End If
Next
If n > 0 Then
Sheets(shs).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=[COLOR=#ff0000]ThisWorkbook.Path & "\file.pdf"[/COLOR], _
Quality:=xlQualityStandard, OpenAfterPublish:=False
sh1.Select
End If
End Sub