How do I supress the message? 1

[Gavona]

When this code gets to the Workbooks.open line I get runtime 1004 "The password you supplied is not correct....."
And if I test in the immediate window DisplayAlerts has been reset to True.
I must be making a silly error but can't work out what

    For Each c In rPasswordList
        On Error GoTo TryTheNextOne
        Application.DisplayAlerts = False
        Workbooks.Open strWbkfullname, Password:=c.Value
        On Error GoTo 0

    Exit Sub

TryTheNextOne:
    Err.Clear
    Next c

Gavin

 

[combo]

If the password is wrong, you get runtime error, so DisplayAlerts is useless for this purpose. You need Resume:

[pre]For Each c In rPasswordList
On Error GoTo TryTheNextOne
Application.DisplayAlerts = False
Workbooks.Open strWbkfullname, Password:=c.Value

Exit Sub

TryTheNextOne:
Err.Clear
Resume ResumeHere
ResumeHere:
Next c[/pre]

combo

 

[Gavona]

Thanks Combo!

Gavin