Problems With "If Sheet Exists"

[Guzzlr]

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 If
    
    Next x
    If worksheetsexists = True Then
        MsgBox (" PDF2Text Tab Already Exist " _
        & vbNewLine & " Please Delete PDF2Text Tab, and Run Program Again ")
    Exit Sub
    End If
    
frm_pdfimp.Show

End Sub

Hello All,
I have the following code, and I'm having issues with defining X...among others.
I'm trying to exit the sub if the worksheet: "PDF2Text" does exist. If the sheet does not exist, then the form "frm_pdfimp" shows, and the program continues.
Is there a better way to do this?
thanks for the help

 

[JackDanIce]

See line Exit Sub, added to the If statement and how to test for the sheet without looping:

Sub Main()

    Dim x   As Long
    Dim wks As Worksheet
    Dim msg As String
    
    ThisWorkbook.Unprotect
    
    On Error Resume Next
    Set wks = Sheets("PDF2Text")
    On Error GoTo 0

    If Not wks Is Nothing Then
        msg = Replace(" PDF2Text Sheet Already Exists @NL Please Delete PDF2Text sheet and run program again ", "@NL", vbCrLf)
        MsgBox msg, vbExclamation, "PDF2Text sheet already exists"
        Set wks = Nothing
        Exit Sub
    End With

    frm_pdfimp.Show

End Sub

 

[Fluff]

Another option

Sub Main_Import()
   ThisWorkbook.Unprotect

    If Evaluate("isref(PDF2Text!A1)") Then
        MsgBox (" PDF2Text Tab Already Exist " _
        & vbNewLine & " Please Delete PDF2Text Tab, and Run Program Again ")
      Exit Sub
    End If
    
   frm_pdfimp.Show

End Sub

 

[mikerickson]

The test in the OP is case sensitive.

Perhaps, rather than looping, you could use this to find sheetExists.

worksheetExists = False
On Error Resume Next
worksheetExists =  (LCase(Worksheets("PDF2Text").Name) = "pdf2text")
On Error Goto 0

 

[Guzzlr]

Another option

Sub Main_Import()
   ThisWorkbook.Unprotect

    If Evaluate("isref(PDF2Text!A1)") Then
        MsgBox (" PDF2Text Tab Already Exist " _
        & vbNewLine & " Please Delete PDF2Text Tab, and Run Program Again ")
      Exit Sub
    End If
    
   frm_pdfimp.Show

End Sub

This seems to be working nicely...thank you for the help

 

[Fluff]

Glad we could help & thanks for the feedback