Shade cells with links to external workbooks

Hello. I am trying to write code that will scan every sheet within a
workbook and shade each cell that has a link to an external file (ie .xls)?
I am only concerned about cells, not named ranges, pictures, etc...

Thanks!

ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
for each cell in Activesheet.UsedRange.SpecialCells(xlFormulas)
if instr(1,cell.Formula,"[",vbTextcompare) Then
cell.Interior.ColorIndex = 3
end if
Next

--
Regards,
Tom Ogilvy

"Steph" <[email protected]> wrote in message
news:%[email protected]...
> Hello. I am trying to write code that will scan every sheet within a
> workbook and shade each cell that has a link to an external file (ie
..xls)?
> I am only concerned about cells, not named ranges, pictures, etc...
>
> Thanks!
>
>

Thanks Tom!

"Tom Ogilvy" <[email protected]> wrote in message
news:%[email protected]...
> ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
> for each cell in Activesheet.UsedRange.SpecialCells(xlFormulas)
> if instr(1,cell.Formula,"[",vbTextcompare) Then
> cell.Interior.ColorIndex = 3
> end if
> Next
>
> --
> Regards,
> Tom Ogilvy
>
> "Steph" <[email protected]> wrote in message
> news:%[email protected]...
> > Hello. I am trying to write code that will scan every sheet within a
> > workbook and shade each cell that has a link to an external file (ie
> .xls)?
> > I am only concerned about cells, not named ranges, pictures, etc...
> >
> > Thanks!
> >
> >
>
>