Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'Column A
If Target.Value > 1 Then 'convert the value to a time format
If Len(Target.Value) > 2 Then 'only entered the hour... no minutes
Target.Value = (Left(Target.Value, Len(Target.Value) - 2) * 60 + Right(Target.Value, 2)) / 1440
Target.NumberFormat = "hh:mm"
Else
Target.Value = (Target.Value * 60) / 1440
End If
End If
End If
End Sub
Coloque este código na planilha com a qual você deseja fazer isso. Por padrão, o código só verifica a Coluna A, mas você deve poder alterar rapidamente a coluna ou linha que deseja verificar e executar esse cálculo.