Refresh Macro Not Working on Protected Sheet

[evxret]

Hi all, I have created a macro that I believe is written correctly, It doesn't give any VBA errors rather says I cannot refresh the table because the sheet is protected. However, I have added lines into the macro that specify to unprotect the sheet, refresh, and then re-protect (and in my case, re-add all of my edit ranges.) I run this macro and It gives this error:

Heres the code Im using for the refresh button, you can see it unprotects before refreshing, so I'm not sure why it's throwing this error.

Sub PreSalesRefresh() With Sheets("PreSalesForm") .Unprotect "abc" 'sheet is protected with this password ThisWorkbook.RefreshAll Set c = .Range("E3:E9,E15:E16,F15:F16,G15:G16,D20:D21,D35:K60,E20:E21,F20:F21,G20:G21,G30:G31") 'Setting a range variable for edit range. On Error Resume Next .Protection.AllowEditRanges("MyRange").Delete 'Delete Edit Range In Case It Already Exists On Error GoTo 0 .Protection.AllowEditRanges.Add Title:="MyRange", Range:=c 'Re-Add Edit Range w/ Specified Range Variable .Protect "abc" 'Re-Protects Sheet End With End Sub