We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim strTime As String Set rg = Intersect(Range("G:G"), ActiveSheet.UsedRange) For Each c In rg.Cells If IsNumeric(c) Then Select Case Len(c) Case 1 strTime = "00:0" & c Case 2 strTime = "00:" & c Case 3 strTime = Left(c, 1) & ":" & Right(c, 2) Case 4 strTime = Left(c, 2) & ":" & Right(c, 2) End Select c = strTime End If Next c
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.