Makro läuft nicht Warum ?

Sub N_NW_Dialog_aufrufen()
Application.ScreenUpdating = False
Dim bolOpen As Boolean
Dim Datei, Fname As String
Dim wb As Workbook
Dim wbDatabase As Workbook
Dim wsDatabase As Worksheet
Datei = "1-nw-plk-vb.xls"                            ' Name der Datenbank
Fname = "C:\1_PKW_Verkauf\" & Datei                  ' kompletter Pfad der Datenbank
bolOpen = False
For Each wb In Application.Workbooks
If wb.Name = Datei Then                             ' Datenbank schon geöffnet?
bolOpen = True
End If
Next
If bolOpen = False Then Workbooks.Open Filename:=Fname
Windows("1-nw-plk-vb.xls").Activate
Sheets("Prov-Blatt").Select
Application.ScreenUpdating = True
End Sub