Sub FalseSub()
Dim listname As String
listname = Cells(5, 2)
On Error Resume Next
Workbooks.Open Filename:=listname
If (Err.Number > 0) Then
Application.ScreenUpdating = True
MsgBox ("The selected list has not been found, choose another one")
Range("B23:N23").ClearContents
Cells(23, 2).Interior.Color = 255
ActiveSheet.Protect ("Offshore")
Exit Sub
End If
End Sub