The Idea Dude
Well-known Member
- Joined
- Aug 15, 2002
- Messages
- 591
- Office Version
- 2016
- Platform
- Windows
For Each c In Worksheets("Sheet2").Range("B2:B48").Cells
If c.Interior.ColorIndex.Value = 6 Then c.Value = 0.5
Next
thanks
If c.Interior.ColorIndex.Value = 6 Then c.Value = 0.5
Next
thanks