I would argue that for four sheets, an array is an unnecessary overhead that
makes the code more difficult to understand.

Leave it as it is.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Doug Glancy" wrote in message
...
dreamz,

Sub Test()
Dim ws As Worksheet

For Each ws In Worksheets(Array("shDER", "shHum", "shTRI", "shOOS"))
ws.Range("C7:C368").Value =Range("LIST").Value
Next ws
End Sub

You should also qualify your from Range so that it looks somehting like:
Worksheet("Foo").Range("LIST").Value

hth,

Doug

"dreamz" wrote in
message ...

right now, i have something like this:


Code:
--------------------
shDER.Range("C7:C368").Value = Range("LIST").Value
shHum.Range("C7:C368").Value = Range("LIST").Value
shTRI.Range("C7:C368").Value = Range("LIST").Value
shOOS.Range("C7:C368").Value = Range("LIST").Value
--------------------


is there a more elegant way of doing this, perhaps all in one line? all
i'm doing is changing the sheet.

thanks.


--
dreamz
------------------------------------------------------------------------
dreamz's Profile:
http://www.excelforum.com/member.php...o&userid=26462
View this thread:
http://www.excelforum.com/showthread...hreadid=532989