Unload UserForm1
'UserForm1.Show
Yukarıdkileri silip UserForm_Initialize
eklemeniz yeterli.Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Sheets(ListBox1.Text).Select
Unload UserForm2
UserForm_Initialize
'Unload UserForm1
'UserForm1.Show
End Sub