Im creating a macro for UV spot, I have recorded the macro in this few steps.
Hi atekdigitalTry this, i hope it works for you.Sub Fill_HLS() Dim sr As ShapeRange Dim s As Shape Set sr = ActiveSelectionRange For Each s In sr.Shapes s.Fill.ApplyUniformFill CreateHLSColor(180, 0, 0) Next sEnd Sub
The above macro did not work.