Greetings
Below Code for Lighten RGB How get Darken RGB?
Sub lightenRGB()
Dim I As Integer, Rng As Range
Dim R As Byte, G As Byte, B As Byte
Set Rng = Selection
With Rng.Cells(1).Interior
R = .Color Mod 256
G = .Color \ 256 Mod 256
B = .Color \ (CLng(256) * 256)...