Hi Ali,

Change:

> wks.Protect Password = PWORD

to

wks.Protect Password:=PWORD

I missed the required colon!

---
Regards,
Norman



"Norman Jones" <normanjones@whereforartthou.com> wrote in message
news:Ohs%238tQmFHA.3900@TK2MSFTNGP09.phx.gbl...
> Hi Ali,
>
> Try something like:
>
> '======================>>
> Sub Tester05()
> Dim wks As Worksheet
> Static PWORD As String
>
> PWORD = InputBox("Please Enter Password")
>
> On Error Resume Next
> For Each wks In ActiveWorkbook.Worksheets
> wks.Unprotect Password:=PWORD
> wks.Range("G14").Formula = "???" '<<==== Your Formula
> wks.Protect Password = PWORD
> Next
>
> End Sub
> '<<======================
>
>
> ---
> Regards,
> Norman
>
>
>
> "AliH" <nospamthanks@nospam.com> wrote in message
> news:u1NmOnQmFHA.3256@tk2msftngp13.phx.gbl...
>>I have a workbook with lots of worksheets that all have the same layout
>>and
>> are protected.
>>
>> I want to make a change to a fomula in cell g14 on all the spreadsheets
>>
>> How can I do this?
>>
>>
>
>