Dim Rng as range
Dim sh as Worksheet
On error resume Next
set rng = application.inputbox(Prompt:=prompt...Type:=8)
On Error goto 0
If not rng is Nothing then
for each sh in Worksheets
sh.Activate
range(rng.address).Select
Next
End if


--
Regards,
Tom Ogilvy

"sadik" wrote in message
...
Hi All,

I am using Excels inputbox in VBA to obtain a cell
reference. See the following

Dim Rng as range
set rng = application.inputbox(Prompt:=prompt...Type:=8)
rng.select

Say rng was C8

What I want to do is to select C8 on each sheet using a
for each statement.

When I try it always slects C8 in sheet1 where the user
originally selected the rng. How can I generalise this so
it selects rng on the activesheet.

Thanks for your help.

Regards

Sadik