/VBA/Excel vba highlight cells using the hex color value within the cells

Excel vba highlight cells using the hex color value within the cells

'VBA function to color cells in selected range based on the hex
'color number entered in each cell. For example, #FF69B4

Sub ColorCellsByHex()
    Dim r
    If TypeName(Selection) <> "Range" Then Exit Sub
    For Each r In Selection
        r.Interior.Color = Abs(("&H" & Mid(r, 6, 2) & Mid(r, 4, 2) & Mid(r, 2, 2)))
    Next
End Sub

Source: academy.excelhero.com

Similar codes

0 vote340 views1 answer
Vba argument is set
VBA
0 vote345 views1 answer
Excel vba address not absolute
VBA
-1 vote371 views1 answer
Code for reading letters only in vb 6
VBA
0 vote372 views1 answer
Prive sub enter clicked vb
VBA
0 vote338 views1 answer
Excel vba disable mouse click
VBA
3 votes347 views1 answer
Excel vba change format of cell
VBA
1 vote337 views1 answer
Vbscript convert ascii code to character
VBA
0 vote365 views1 answer
Power query M substract minimum value of column -dax
VBA
0 vote389 views1 answer
Pivot data source not accepting table named range vba
VBA
5 votes363 views1 answer
Xl vba double quotes in string literal
VBA