I have a list of workbooks and I want to determine who last edited them. I
know how to open them programmatically, but I'm not sure how to extract who
edited them. I'm sure there is some variable name somewhere that contains
this information. Can someone assist?

Hi Barb,

see help for builtindocumentproperties.

Regards,
Ivan

What am I doing wrong he

Sub LastEdit()
Dim oWB As Workbook
Dim aWB As Workbook
Dim aWS As Worksheet

Set aWB = ActiveWorkbook
Set aWS = ActiveSheet
Range("AV1").Select
ActiveCell.FormulaR1C1 = "LastEdit"
For i = 2 To Cells(Rows.Count, "AU").End(xlUp).row
Set oWB = Workbooks.Open(Cells(i, "B"), ReadOnly = True, _
UpdateLinks = False)
aWS.Range("AV" & i).Value = BuiltinDocumentProperties.Value("Last
Author")
oWB.Close SaveChanges:=False
aWB.Save
Next i
aWB.Save
End Sub

I've never accessed the built in properties so have no clue.

Thanks,
Barb Reinhardt

"Ivan Raiminius" wrote:

Hi Barb,

see help for builtindocumentproperties.

Regards,
Ivan

? Activeworkbook.BuiltinDocumentProperties("Last Author").Value
OGILVTW

--
Regards,
Tom Ogilvy


"Barb Reinhardt" wrote:

What am I doing wrong he

Sub LastEdit()
Dim oWB As Workbook
Dim aWB As Workbook
Dim aWS As Worksheet

Set aWB = ActiveWorkbook
Set aWS = ActiveSheet
Range("AV1").Select
ActiveCell.FormulaR1C1 = "LastEdit"
For i = 2 To Cells(Rows.Count, "AU").End(xlUp).row
Set oWB = Workbooks.Open(Cells(i, "B"), ReadOnly = True, _
UpdateLinks = False)
aWS.Range("AV" & i).Value = BuiltinDocumentProperties.Value("Last
Author")
oWB.Close SaveChanges:=False
aWB.Save
Next i
aWB.Save
End Sub

I've never accessed the built in properties so have no clue.

Thanks,
Barb Reinhardt

"Ivan Raiminius" wrote:

Hi Barb,

see help for builtindocumentproperties.

Regards,
Ivan

Thank you very much. This will save me a LOT of time.

"Tom Ogilvy" wrote:

? Activeworkbook.BuiltinDocumentProperties("Last Author").Value
OGILVTW

--
Regards,
Tom Ogilvy


"Barb Reinhardt" wrote:

What am I doing wrong he

Sub LastEdit()
Dim oWB As Workbook
Dim aWB As Workbook
Dim aWS As Worksheet

Set aWB = ActiveWorkbook
Set aWS = ActiveSheet
Range("AV1").Select
ActiveCell.FormulaR1C1 = "LastEdit"
For i = 2 To Cells(Rows.Count, "AU").End(xlUp).row
Set oWB = Workbooks.Open(Cells(i, "B"), ReadOnly = True, _
UpdateLinks = False)
aWS.Range("AV" & i).Value = BuiltinDocumentProperties.Value("Last
Author")
oWB.Close SaveChanges:=False
aWB.Save
Next i
aWB.Save
End Sub

I've never accessed the built in properties so have no clue.

Thanks,
Barb Reinhardt

"Ivan Raiminius" wrote:

Hi Barb,

see help for builtindocumentproperties.

Regards,
Ivan

Look in excel vba help at BuiltinDocumentProperties and see if the last
author property gives you what you want.

? Activeworkbook.BuiltinDocumentProperties("Last Author").Value
OGILVTW


--
Regards,
Tom Ogilvy


"Barb Reinhardt" wrote:

I have a list of workbooks and I want to determine who last edited them. I
know how to open them programmatically, but I'm not sure how to extract who
edited them. I'm sure there is some variable name somewhere that contains
this information. Can someone assist?