Excel VBA

Sub Try()
With Range("B6:B" & Cells(Rows.Count, 2).End(xlUp).Row).Offset(, 6)
    .Formula = "=TEXT(RC[-6],""hh:mm:ss"")"
    .Value = .Value
End With
End Sub

Sub Try_A()
Dim c As Range
For Each c In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
    c.Value = Format(WorksheetFunction.Text(c.Value, "hh:mm:ss"))
Next c
End Sub

Sub Strip()
    For Each cl In ActiveSheet.UsedRange
        If Mid(cl, 6, 1) = ":" And Mid(cl, 9, 1) = "." Then
            cl.Value = Left(cl.Value, 8)
        End If
    Next cl
End Sub

Sub MaakTijd()

    For Each c In Sheets(1).UsedRange.SpecialCells(xlCellTypeConstants)
        If c.Value Like "##:##:##.###" Then c.Value = Left(c.Value, 8)
    Next c

End Sub

Sub hsv()
Dim sn, i As Long, j As Long
sn = Cells(1).CurrentRegion
    For i = 1 To UBound(sn)
      For j = 2 To UBound(sn, 2)
        If sn(i, j) <> "" Then sn(i, j) = Split(sn(i, j), ".")(0)
      Next j
    Next i
 Cells(1).Resize(UBound(sn), UBound(sn, 2)) = sn
End Sub

For j = [COLOR=#ff0000]2[/COLOR] To UBound(sn, 2)