Seleccionar diferentes rangos de celdas en una macro

[Pedro11111]

Hola 3pies,

ante todo, gracias.

He probado y me da "error de compilación" y "error de sintaxis".

el código (con tus instrucciones) ha quedado así:


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("B1:B20,D2:D21,H1:H20").Select Is Nothing Then
With Target
If IsNumeric(.Value) Then
.Value = (Int(.Value) + (.Value - Int(.Value)) * 100 / 60) / 24
.NumberFormat = "hh:mm"
End If
End With
End If
Ws_exit:
Application.EnableEvents = True
End Sub


Saludos.