Sub Macro2()
'
Sheets("TaskTracker").Select
Range("B1000").Select 'No days task items should ever reach 1000 lines
Selection.End(xlUp).Select
StartTimeStamp = ActiveCell.Value
Do While Not StartTimeStamp = Now()
StartTimeStamp = ActiveCell.Value
MsgBox ("No")
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.