G
Guest
In spite of someones efforts to help me, I am not able to modify or ?? the
following to work on locked cells (only) in the selected range in column C.
It is critical to the application. Will someone please help?
Dim ws As Worksheet
Set ws = Worksheets("Pricing")
Dim ILastRow As Long
ILastRow = ws.Range("B:B").SpecialCells(xlCellTypeLastCell).Row
With ws.Range("C6:C" & ILastRow)
.Select
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=($B6=""*"")"
.FormatConditions(1).Interior.ColorIndex = 4
End With
ws.Range("C6").Select
following to work on locked cells (only) in the selected range in column C.
It is critical to the application. Will someone please help?
Dim ws As Worksheet
Set ws = Worksheets("Pricing")
Dim ILastRow As Long
ILastRow = ws.Range("B:B").SpecialCells(xlCellTypeLastCell).Row
With ws.Range("C6:C" & ILastRow)
.Select
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=($B6=""*"")"
.FormatConditions(1).Interior.ColorIndex = 4
End With
ws.Range("C6").Select