Sub Main_Import()
Dim sht As Integer
Dim worksheetexists As String
' Dim Wsht As Integer
ThisWorkbook.Unprotect
sht = Application.Sheets.Count
worksheetexists = False
For x = 1 To sht
If Worksheets(x).Name = "PDF2Text" Then
worksheetsexists = True
Exit For
End...