Hi Barb,

This is what I think you want

Set oWB = Workbooks.open _
Filename:= cells(i,"A").Value & "\" & Cells(i,"G").Value, _
UpdateLinks:= 0


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Barb Reinhardt" wrote in message
...
Bob,

I have a bit of a glitch that I'm sure you can help with. There are some
documents that when opened, display a message asking if I want to update
links. I don't. What needs to be changed in the following code?

Thanks,
Barb

"Bob Phillips" wrote:


For i = 2 To Cells(Rows.Count,"A").End(xlUp).Row
Set oWB = Workbooks.open Filename:= _
cells(i,"A").Value & "\" & Cells(i,"G").Value
Set sh = Nothing
on Error Resume Next
Set sh = oWB.Worksheets("Sheet3")
On Error Goto 0
If Not sh Is Nothing Then Cells(i,"H").Value = "yes"
oWB.Close SaveChanges:=False
Next i

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Barb Reinhardt" wrote in
message
...
I have a list of workbooks and need to determine if a specific
worksheet
(say
Sheet3) is present in that workbook. I have the following:

Column A: Y:\BLAH\BLAH\Blah
Column G: filename.xls

The workbook is in the following location
Y:\BLAH\BLAH\Blah\filename.xls

The data starts on row 2 and I can determine the last row of data.
I'd
like to have something written to column H if Sheet3 is present in the
workbook.

Thanks in advance,
Barb Reinhardt