Combobox + copiar datos con formato

Hola expertos:
Tengo un combobox  con distintas opciones.
Necesito que en base a la opción seleccionada, al hacer click copie los datos de varias celdas de la hoja 2 con formato (negrita, subrayado, etc) a la hoja 1
Adjunto la macro que realicé (con case), pero tengo el problema que no copia con formato. Se puede hacer de otra manera?
Private Sub ComboBox1_Change()
Select Case Range("f12").Value
Case 1
        Worksheets("Hoja5").Range("b17:b37").Clear
        Worksheets("Hoja5").Range("c17:c37").Clear
        Worksheets("Hoja5").Range("b17:b37").Value = Worksheets("CAMBIOS").Range ("d10:d30").Value
        Worksheets("Hoja5").Range("c17:c37").Value = Worksheets("CAMBIOS").Range("e10:e30").Value
Case 2
        Worksheets("Hoja5").Range("b17:b37").Clear
        Worksheets("Hoja5").Range("c17:c37").Clear
        Worksheets("Hoja5").Range("b17:b37").Value = Worksheets("CAMBIOS").Range("d44:d82").Value
        Worksheets("Hoja5").Range("c17:c37").Value = Worksheets("CAMBIOS").Range("e44:e82").Value
End Select
End Sub
Desde ya, muy agradecido