Hex Color no VBA

Utilizando o código

Para utilizar o código é necessário criar um novo módulo ou usar um existente e colar o código abaixo.

Pinte a célula com o recurso do excel

Após isso selecione a célula desejada e execute o código.

Código para utilização

Sub HexColorVBA()

    Dim HexColor As String

    If ActiveCell.Interior.ColorIndex <> xlNone Then

        HexColor = Right("000000" & Hex(ActiveCell.Interior.Color), 6)

        ActiveCell.Offset(0, 1).Value = "&H00" & HexColor & "&"

    End If

End Sub

Depois de converter é só utilizar a cor na propiedade que precisa, tanto no código quanto no formulário.