of course if you don't want to write an enormous array line if you have lots
of sheets you could use

sub samevalue ()
for each w in activeworkbook.sheets
w.range("a100").value = 100 ' or whatever value
next
end usb

"Pat" wrote:

Thank you for your advice but I want to execute it by code. I only used an
example to describe what I wish to do. I do not want to go into the other
sheets to look for the cells in question.

Pat

"Don Guillett" wrote in message
...
Just use the control or shift key to select the sheets desired. then put
100
in a1. Excel will put it in all

--
Don Guillett
SalesAid Software

"Pat" wrote in message
...
Hi,
If Sheet1!A1 = 100
then Sheet2!A1 = 100, Sheet3!A1 = 100, Sheet4!A1 = 100

I do not want to use a formula preferring to execute via a
commandbutton.

Any ideas?