Private Sub CommandButton1_Click()
For n = 9 To Range("E" & Rows.Count).End(xlUp).Row
On Error Resume Next
x = Range("E" & n).Value
Set w = Workbooks(x)
If Err.Number = 0 Then
Range("F" & n) = Range("E" & n) & " est ouvert"
Else
Range("F" & n) = Range("E" & n) & " n'est pas ouvert"
End If
On Error GoTo 0
Next