Does anyone have any suggestions on how to set time for processing the code?
I would like to add a condition that allow process the code before 4 pm,
Does anyone have any suggestions on how to do it?
Thanks in advance for any suggestions
Eric

If FileDateTime(PathFileName) Date + TimeSerial(8, 0, 0) Or Now <
TimeSerial(16, 0, 0) Then {It does not work!}

hi
i think the ontime method might do better.
see this site for more details
http://www.cpearson.com/excel/OnTime.aspx

regards
FSt1

"Eric" wrote:

Does anyone have any suggestions on how to set time for processing the code?
I would like to add a condition that allow process the code before 4 pm,
Does anyone have any suggestions on how to do it?
Thanks in advance for any suggestions
Eric

If FileDateTime(PathFileName) Date + TimeSerial(8, 0, 0) Or Now <
TimeSerial(16, 0, 0) Then {It does not work!}

hi
Sub sheetnamesonSheet()

Dim r As Range
Dim rd As Range
Dim WS As Worksheet
Set r = Range("A2") 'change if needed. used sheet1 for demo
For Each WS In Worksheets
Set rd = r.Offset(1, 0)
r.Value = WS.Name
Set r = rd
Next WS
End Sub

goes in a standard module.

regards
FSt1

"Eric" wrote:

Does anyone have any suggestions on how to set time for processing the code?
I would like to add a condition that allow process the code before 4 pm,
Does anyone have any suggestions on how to do it?
Thanks in advance for any suggestions
Eric

If FileDateTime(PathFileName) Date + TimeSerial(8, 0, 0) Or Now <
TimeSerial(16, 0, 0) Then {It does not work!}

If FileDateTime(PathFileName) Date + TimeSerial(8, 0, 0) Then {It is
working!}

I would like to add another condition that allow process the code before 4
pm, which I tried and show below, but it does not work.

If FileDateTime(PathFileName) Date + TimeSerial(8, 0, 0) Or Now <
TimeSerial(16, 0, 0) Then {It does not work!}

Do you have any suggestions?
Thanks in advance for any suggestions
Eric


"FSt1" wrote:

hi
Sub sheetnamesonSheet()

Dim r As Range
Dim rd As Range
Dim WS As Worksheet
Set r = Range("A2") 'change if needed. used sheet1 for demo
For Each WS In Worksheets
Set rd = r.Offset(1, 0)
r.Value = WS.Name
Set r = rd
Next WS
End Sub

goes in a standard module.

regards
FSt1

"Eric" wrote:

Does anyone have any suggestions on how to set time for processing the code?
I would like to add a condition that allow process the code before 4 pm,
Does anyone have any suggestions on how to do it?
Thanks in advance for any suggestions
Eric

If FileDateTime(PathFileName) Date + TimeSerial(8, 0, 0) Or Now <
TimeSerial(16, 0, 0) Then {It does not work!}

ignore this post. i posted to the wrong thread.
sorry

Regards
FSt1

"FSt1" wrote:

hi
Sub sheetnamesonSheet()

Dim r As Range
Dim rd As Range
Dim WS As Worksheet
Set r = Range("A2") 'change if needed. used sheet1 for demo
For Each WS In Worksheets
Set rd = r.Offset(1, 0)
r.Value = WS.Name
Set r = rd
Next WS
End Sub

goes in a standard module.

regards
FSt1

"Eric" wrote:

Does anyone have any suggestions on how to set time for processing the code?
I would like to add a condition that allow process the code before 4 pm,
Does anyone have any suggestions on how to do it?
Thanks in advance for any suggestions
Eric

If FileDateTime(PathFileName) Date + TimeSerial(8, 0, 0) Or Now <
TimeSerial(16, 0, 0) Then {It does not work!}