UF geht nicht weg..

Sub Auto_Open()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Windows("1-nw-plk-vb-01-07-05.xls").Activate
Worksheets("Prov-Blatt").Select
Range("A1").Select
Worksheets("Prov-Blatt").Unprotect ("wwpa")
Application.Run "'1-nw-plk-vb-01-07-05.xls'!PKL_Fixierung_raus"
Worksheets("Prov-Blatt").Select
Range("A1").Select
Dim www As String
www = "c:\1_PKW_Verkauf\1-NW-PLK-VB-01-07-05-www.xls"
If Dir(www, vbDirectory) <> ""                                                                        '
Worksheets("Kulanzblatt-VK").Visible = False
Worksheets("GF-TAB-Neu").Visible = False
Worksheets("Auftragsblatt").Visible = False
Worksheets("Datenbank").Visible = False
Dim dblLz#, oOrg As Workbook, oCop As Workbook
Application.DisplayAlerts = False
Deiner Originaldatei eintragen
Set oOrg = Workbooks("1-nw-plk-vb-01-07-05-www.xls") 'Hier den Namen Deiner Originaldatei eintragen
Set oCop = Workbooks("1-nw-plk-vb-01-07-05.xls")
MsgBox "IHRE Datenbank wird jetzt in die NEUE Update Datei       " & Chr(13) & Chr(13) & _
"im Hintergrund übertragen !                         " & Chr(13) & Chr(13) & _
"Keine Taste drücken oder die Aktion unterbrechen,   " & Chr(13) & Chr(13) & _
"es können sonst Daten verloren gehen !              " & Chr(13) & Chr(13) & _
"NUR  OK  drücken !                                  " & Chr(13) & Chr(13) & _
"          ", vbCritical
Hier die UF: >>>>>>>     UFHinweisKopieren.Show
Worksheets("Datenbank").Unprotect ("wwpa")
dblLz = oOrg.Sheets("Datenbank").Cells.SpecialCells(xlLastCell).Row
oOrg.Sheets("Datenbank").Range("A2:Q" & dblLz).Copy
oCop.Sheets("Datenbank").Activate
Worksheets("Datenbank").Unprotect ("wwpa")
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
oCop.Save
Application.DisplayAlerts = True
Set oOrg = Nothing
Set oCop = Nothing
Workbooks("1-nw-plk-vb-01-07-05-www.xls").Close True
Kill "C:\1_PKW_Verkauf\1-nw-plk-vb-01-07-05-www.xls"
' Unload UFHinweisKopieren               ' wird entladen
UFHinweisKopieren.Hide                  ' wird entladen
leider beides nicht funktioniert !!!!
Worksheets("Prov-Blatt").Select
Range("A1").Select
walter.Show
End Sub