How to make Workbooks.Open skip password protected files

I added a blank password and added an "On Error GoTo" to skip over the file open. Works like a charm.

Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), ReadOnly:=True, UpdateLinks:=0, Password:="")