I have reached the end of my limited knowledge.

I am dealing with a large number of html files where the file name bares no
resemblance to the contents.

I can put a list of all the files in the column B of my spreadsheet.

What I need to do is put the text between the <title and </title tags in
the next column.

I am running excel 2002, but if this could work for 2000 so I could use it
at work it would be cool.

Regards
Steve the dropbear

Following should do it..
...change directory before running it

Sub ReadTitles()
Dim wb As Workbook, rng As Range, r&, sFile$
Set rng = ActiveCell
sFile = Dir("*.htm*")
Application.ScreenUpdating = False
While sFile < ""
Set wb = Workbooks.Open(sFile)
r = r + 1
rng(r, 1) = wb.Name
rng(r, 2) = wb.BuiltinDocumentProperties("Title")
wb.Close
sFile = Dir
Wend
Application.ScreenUpdating = True
End Sub


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Gustavus Vasa" wrote:

I have reached the end of my limited knowledge.

I am dealing with a large number of html files where the file name
bares no resemblance to the contents.

I can put a list of all the files in the column B of my spreadsheet.

What I need to do is put the text between the <title and </title
tags in the next column.

I am running excel 2002, but if this could work for 2000 so I could
use it at work it would be cool.

Regards
Steve the dropbear