Dear Eric

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


If this post helps click Yes
--------------
Jacob Skaria


"Eric" wrote:

Please see the following coding
Does anyone have any suggestions?
Thank everyone very much for any suggestions
Eric

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


"Jacob Skaria" wrote:

Please paste your code so as to recreate the issue..

If this post helps click Yes
--------------
Jacob Skaria


"Eric" wrote:

Thank you very much for suggestions
I get an error, which is related to missing some variable setting or With's
variable.
Do you have any suggestions on how to fix it?
Thank you very much for any suggestions
Eric

"Jarek Kujawa" wrote:

If wkbk Is Nothing And myCell.Offset(0, 2).Value < DateSerial(Year(Now),
Month(Now), Day(Now)) Then

HIH


U¿ytkownik "Eric" napisa³ w wiadomo¶ci
...
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
======================================

If wkbk Is Nothing Then
myCell.Offset(0, 1).Value = "Failed to open!"
Else
wkbk.Close savechanges:=True
myCell.Offset(0, 1).Value = "ok"