Hi Eric,

If wkbk Is Nothing And myCell.Offset(0, 2).Value < Date Then

--
Regards,

OssieMac


"Eric" wrote:

Does anyone have any suggestions on how to add condition into coding?

I would like to add the condition, please see []
If wkbk Is Nothing [and myCell.Offset(0, 2).Value is not equal today] Then
Thanks in advance for any suggestions
Eric

======================================
Original Coding
======================================

Option Explicit
Sub Updating_Lists()

Dim myRng As Range
Dim myCell As Range
Dim wkbk As Workbook

With Worksheets("Table").Range("C3")
.NumberFormat = "hh:mm AM/PM"
.Value = Now
End With

With Worksheets("Lists")
'still starting in row 2!
Set myRng = .Range("a2", .Cells(.Rows.Count, "A").End(xlUp))
End With

For Each myCell In myRng.Cells
Set wkbk = Nothing
On Error Resume Next
On Error GoTo 0
myCell.Offset(0, 1).Value = ""

Next myCell

For Each myCell In myRng.Cells
Set wkbk = Nothing
On Error Resume Next
Set wkbk = Workbooks.Open(Filename:=myCell.Value, UpdateLinks:=3)
On Error GoTo 0

<<< Add the condition here

If wkbk Is Nothing Then

<<< Add the condition here

myCell.Offset(0, 1).Value = "Failed to open!"
Else
wkbk.Close savechanges:=True
myCell.Offset(0, 1).Value = "ok"
With myCell.Offset(0, 2)
.NumberFormat = "mm/dd/yyyy"
.Value = Date
End With
With myCell.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With

End If
Next myCell

With Worksheets("Table").Range("E3")
.NumberFormat = "hh:mm AM/PM"
.Value = Now
End With

'better to include an extension
Workbooks("Update Up.xls").Close savechanges:=True

End Sub