aktive Command Button klappt nicht

Private Sub CommandButton1_Click()
Sheets("Grunddaten").Select
P = Range("J5")  ***Hier steht das Laufwerksverzeichnis und der Dateiname
Sheets("intern").Select
X = Range("A1")
Sheets("Eingabe").Select
Application.ScreenUpdating = False
Dim Zei As Long, strZeilen As String
With Worksheets("Berechnung")
For Zei = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(Zei, 1).Value  "" Then
strZeilen = strZeilen & "10000,1,1,1;24,a;51,1;10," & .Cells(Zei, 1).Value & vbCrLf
strZeilen = strZeilen & X & vbCrLf & vbCrLf
End If
Next Zei
End With
Close
Open P For Output As #1  ***hier erscheint immer eine Fehlermeldung und wenn man darüber fä _
hrt ist P= leer
Print #1, Left(strZeilen, Len(strZeilen) - 4)
Close #1
End Sub