Take a look at this:
http://www.rondebruin.nl/copy2.htm

I believe you can modify it (slightly) for your purpose.


Regards,
Ryan--


--
RyGuy


"Mike H" wrote:

Hi

if = 1 as string It looks like your trying to select "Sheet14. If so try this

Set b = Sheets("sheet" & a & "4").Range(Cells(33, 3), Cells(33, 8))

Mike

"ranswert" wrote:

I am trying to get a name of a sheet from a cell then go to that sheet to put
data into a range of cells. I get an error on the following code:

Set b = Sheets(a(4)).Range(Cells(33, 3), Cells(33, 8))

'b' is a range and 'a' is an array(1 to 8) as string

What am I doing wrong?

Thanks