userform görüntülenmiyor

[gsenlikoglu]

DTY userform da, hata bilgi formundan sonra goto1 deki dty.show dedim ama dty userforma dönmüyor userform kapanıyor.
Private Sub KAY_Click()
On Error GoTo Son:


Sheets("kontenjan").Select
Sheets("kontenjan").Copy After:=Sheets(3)
Range("C1:N1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("kontenjan (2)").Name = " kontenjan " & Sheets("hesap").Range("n1")

Sheets("hesap").Select
Sheets("hesap").Copy After:=Sheets(4)
Range("B1:M1").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2:E2").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B3:E3").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("hesap (2)").Select
Sheets("hesap (2)").Name = "hesap " & Sheets("hesap").Range("n1")

Sheets("alan").Select
Sheets("alan").Copy After:=Sheets(5)
Sheets("alan (2)").Select
Sheets("alan (2)").Name = "alan " & Sheets("hesap").Range("n1")

GoTo 0
Son:
Application.DisplayAlerts = False
Sheets("kontenjan (2)").Delete
'Application.Visible = false
MsgBox "aynı sayfadan sayfa var", vbOKOnly + vbCritical, "HATA"
GoTo 1
0 MsgBox "devir işlemi tamamlandı"
GoTo 1
1
DTY.Show
End Sub