Help in Debugging to Unprotect Sheet and insert formula

[Haree]

Hi all, I have a small code which will unprotect a sheet and insert a formula, but when i run it it says you have to unprotect it. Could you please have a look and point my mistake so that i could correct myself.
Thanks

Attaching the Code

    Dim psheet As Worksheet
    For Each psheet In Worksheets
    If psheet.Name <> "Data Sheet" Or psheet.Name <> "Master Sheet" Or psheet.Name <> "Stock Check" Then
    psheet.Unprotect Password:="STOCK"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISBLANK(RC[-3]),,IF(RC[-3]=""Sales"",R[-1]C-1,R[-1]C+1))"
    Range("E3").Select
    Selection.AutoFill Destination:=Range("E3:E2000"), Type:=xlFillDefault
    Range("E3:E2000").Select
    Range("H11").Select
    End If
    Next psheet

 

[RoryA]

You need to qualify the ranges with the worksheet. There's also no need to select anything there:

    If psheet.Name <> "Data Sheet" And psheet.Name <> "Master Sheet" And psheet.Name <> "Stock Check" Then
    psheet.Unprotect Password:="STOCK"
    psheet.Range("E3:E2000").FormulaR1C1 = _
        "=IF(ISBLANK(RC[-3]),,IF(RC[-3]=""Sales"",R[-1]C-1,R[-1]C+1))"
    End If

Note also that I changed your Or criteria to And, otherwise you would do this to every sheet.

 

[Peter_SSs]

I think Rory's code is missing a "."

psheet.Range("E3:E2000").FormulaR1C1 =

 

[Haree]

Thank You So much @RoryA for taking out the time to help . Thank you @Peter_SSs

 

[RoryA]

I think Rory's code is missing a "."

No, it's definitely there... (now)

 

[Peter_SSs]

No, it's definitely there... (now)

OK, once you have seen this you could remove a few posts.