Sub ApplyHexColors()
Dim cell As Range
Dim hexVal As String
Dim r As Integer, g As Integer, b As Integer
On Error Resume Next
For Each cell In Selection
' Strip the "#" if present
hexVal = Replace(cell.Value, "#", "")
If Len(hexVal) = 6 Then
' Convert Hex to RGB
r = CInt("&H" & Mid(hexVal, 1, 2))
g = CInt("&H" & Mid(hexVal, 3, 2))
b = CInt("&H" & Mid(hexVal, 5, 2))
' Apply as background fill
cell.Interior.Color = RGB(r, g, b)
End If
Next cell
End Sub


























