Userform disappear after copy

[seba64]

I have a userform with a button. On click that button, the code copy sheet1 to sheet2 and then select some rows.

When the code execute the next sentence, excel show a message saying something like:
[Can´t enter on interruption mode]
after that, the userform disappear

The message disappear if add the code: Application.DisplayAlerts = False
but the userform disappears anyway

The sentence

    Sheets(nombHoja).Copy after:=Sheets(Sheets.Count)

 

[mikerickson]

What is the rest of the code?

 

[seba64]

Sub duplicate(nombHoja, Optional nomb = "")
    Dim Hoja2
    ThisWorkbook.Activate
    If nomb = "" Then nombHoja2 = nombHoja & " (2)" Else nombHoja2 = nomb
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets(nombHoja2).Delete
    On Error GoTo 0
    Sheets(nombHoja).Copy after:=Sheets(Sheets.Count)
    Application.DisplayAlerts = True
End Sub

 

[seba64]

All code:

Private Sub CommandButton6_Click()

    Dim MyRange As Range
    Dim cell As Object
    
    nombHoja = "Hoja1": nomb = "Hoja2"
    Dim Hoja2
    ThisWorkbook.Activate
    If nomb = "" Then nombHoja2 = nombHoja & " (2)" Else nombHoja2 = nomb
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets(nombHoja2).Delete
    On Error GoTo 0
    Sheets(nombHoja).Copy after:=Sheets(Sheets.Count)
    If nomb <> "" Then Sheets(Sheets.Count).Name = nomb
    Application.DisplayAlerts = True




    Sheets("Hoja2").Select
    Rng1 = Range("A1:A75")
    
    For Each cell In Range("A1:A75")
        cell2 = cell.Offset(0, 1)
        If cell.Value = TextBox1.Text And cell2 = TextBox2.Text Then
            If MyRange Is Nothing Then
                Set MyRange = Range(cell.Address)
            Else
                Set MyRange = Union(MyRange, Range(cell.Address))
            End If
        End If
    Next
    If Not MyRange Is Nothing Then
        MyRange.Select
        Selection.EntireRow.Select
    End If

'    invSelecccion

    Dim rng As Range, RngSelect As Range

    With ActiveSheet
        .UsedRange
        If Selection.Address = .UsedRange.Address Then
            ''' ???  do nothing???
        Else
            For Each rng In .UsedRange
                If Intersect(rng, Selection) Is Nothing Then
                    If RngSelect Is Nothing Then
                        Set RngSelect = rng
                    Else
                        Set RngSelect = Union(RngSelect, rng)
                    End If
                End If
            Next
            If Not RngSelect Is Nothing Then
                RngSelect.Select
            End If
        End If
    End With

' Delete selection
    Selection.Delete
    Range("A1").Select

End Sub

 

[mikerickson]

Is there any event code like Worksheet_Change or Activate?

 

[seba64]

Is there any event code like Worksheet_Change or Activate?

this code.
two textbox
one button
that's all

 

[seba64]

this code.
two textbox
one button
that's all

I delete line Dim Hoja2 and now work