Private Sub GetRGB(ByVal Col As Long, ByRef r As Long, ByRef g As Long, ByRef b As Long)
r = Col Mod 256
g = ((Col And &HFF00&) / 256&) Mod 256&
b = (Col And &HFF0000) / 65536
End Sub
r = Col Mod 256
g = ((Col And &HFF00&) / 256&) Mod 256&
b = (Col And &HFF0000) / 65536
End Sub