Thanks for the help but it wont accept my formula string.
The message I get is RunTIme error 1004
Application-defined or object defined error
Any ideas what is wrong with this? It works ok if I just type it into the
cell

wks.Range("G15").Formula = "=IF(C16='Enter Manual %age
Below',C17,IF(B17='Y',C17,C16))"

Thanks again
"Norman Jones" wrote in message
...
Hi Ali,

Change:

wks.Protect Password = PWORD

to

wks.Protect Password:=PWORD

I missed the required colon!

---
Regards,
Norman



"Norman Jones" wrote in message
...
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" wrote in message
...
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?