Prevent error in sheet added

[kalcerro_1]

Hello,
I'm adding this new sheet to my workbook and giving a specific name to the new sheet. I would like to know how can I protect the creation of a new sheet after this one is already working.
Also, I would like to add to the code the function to only open .csv files, is this possible?
I tried to record the option from data tab in excel but there's an error every time I tried to record the function.

Private Sub CommandButton1_Click()


Dim getfilename As String
getfilename = Application.GetOpenFilename()
Sheets.Add(After:=Sheets("3. Sheet2")).Name = "4. Result"


End Sub

 

[Joe4]

I would like to add to the code the function to only open .csv files, is this possible?

Try this:

    Dim getfilename As String
    getfilename = Application.GetOpenFilename("Text Files (*.csv), *.csv")

 

[LazyBug]

I'm adding this new sheet to my workbook and giving a specific name to the new sheet. I would like to know how can I protect the creation of a new sheet after this one is already working.

Try this:

Private Function ShEx(sn$) As Boolean
    Dim sh As Worksheet
        For Each sh In Worksheets
            If StrComp(sh.Name, sn$, vbTextCompare) = 0 Then
                ShEx = True
                Exit Function
            End If
        Next
End Function

Sub kalcerro() 
    If ShEx("4. Result") Then
        MsgBox "Sheet '4. Result' exists!", 48, "Error"
        Exit Sub
    End If

    ActiveWorkbook.Sheets.Add After:=Worksheets("3. Sheet2")
    Worksheets.Add.Name = "4. Result"
End Sub

 

[kalcerro_1]

Try this:

    Dim getfilename As String
    getfilename = Application.GetOpenFilename("Text Files (*.csv), *.csv")

Thank you, very much @Joe4

 

[kalcerro_1]

Try this:

Private Function ShEx(sn$) As Boolean
    Dim sh As Worksheet
        For Each sh In Worksheets
            If StrComp(sh.Name, sn$, vbTextCompare) = 0 Then
                ShEx = True
                Exit Function
            End If
        Next
End Function

Sub kalcerro()
    If ShEx("4. Result") Then
        MsgBox "Sheet '4. Result' exists!", 48, "Error"
        Exit Sub
    End If

    ActiveWorkbook.Sheets.Add After:=Worksheets("3. Sheet2")
    Worksheets.Add.Name = "4. Result"
End Sub

It worked great @LazyBug thank you very much!

 

[Joe4]

You are welcome.
Glad we were able to help.