Dim cell as Range, bk as Workbook
for each cell in Range("C2:C23")
if not isempty(cell) then
set bk = workbooks.Open("C:\Myfolder\" & cell.offset(0,-2).Value _
& ".xls)
bk.Worksheets("Sheet45").Range("A1").Value = cell
bk.Worksheets("Sheet45").Printout
bk.close Savechanges:=False
End if
Next

Your description falls apart where you say what you want to do after opening
the workbook, so adjust the macro to suit your needs.

--
Regards,
Tom Ogilvy



"jhahes" wrote in
message ...

I am stuck trying to do the following. Can someone please help. I am a
novice and have Excel 2003.

I am in Sheet10.

I want the code to look at cell C2 in Sheet10.
If cell C2 in Sheet10 is blank, then go to C3 in Sheet10. (offset 1,0)

The range can go down to cell C23


If a cell in the range has a value then I want it to open a sheet ( the
name of the sheet is in the corresponding Column A of Sheet10.)

For example

The code looks starts in Sheet10 (Column C, Row2) finds that it is
empty and goes to the next row in that column. Finally in Row 10 it
finds a value. So then I want it to go to the corresponding row
(Column A) or activecell.offset(0,-2) and open that sheet. So in this
example, say Column A, Row 10 value is (Fiesta). So I want the code to
open Sheet45(Fiesta) and put the value in column c row 10 in Fiesta
sheet "A1"), then print Fiesta Sheet. And finally loop thru rows 3:23
in Sheet10.

Sorry, this probably wasn't explained very well.

I would appreciate any help.

thanks Josh


--
jhahes
------------------------------------------------------------------------
jhahes's Profile:
http://www.excelforum.com/member.php...o&userid=23596
View this thread: http://www.excelforum.com/showthread...hreadid=471874