VB hjælp men tid

denne kode virker men hvis tiden er i det format den laver det om til laver den fejl kan man gøre at hvis den er i det format skal den bare gøre det
Sub tid()
  Range("B11:D40").Select
   
  Dim c As Range
  For Each c In Selection
      If c <> "" Then
        c = TimeValue(c)
        c.NumberFormat = "hh:mm"

    End If
    Next
End Sub