Column B ALWAYS has entries in each cell.
The entries in B always go to bottom of used range on worksheet.
Once last cell is determined, need to select Column C6 down to last cell,
in order to process the following code.

' Select C6 down to last used row

Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=($B6=""*"")"
Selection.FormatConditions(1).Interior.ColorIndex = 4

any help would be appreciated.

Range(Range("C6"), Range("C6").End(xlDown)).Select

maybe something like this

Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, "B").End(xlUp).Row
ws.Range("C6:C" & lastrow).Select

--


Gary


"BEEJAY" wrote in message
...
Column B ALWAYS has entries in each cell.
The entries in B always go to bottom of used range on worksheet.
Once last cell is determined, need to select Column C6 down to last cell,
in order to process the following code.

' Select C6 down to last used row

Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=($B6=""*"")"
Selection.FormatConditions(1).Interior.ColorIndex = 4

any help would be appreciated.

Try something like this.

Dim lLastRow As Long
lLastRow = Sheet1.Range("B:B").SpecialCells(xlCellTypeLastCel l).Row
With Sheet1.Range("C6:C" & lLastRow)
.Select
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=($B6=""*"")"
.FormatConditions(1).Interior.ColorIndex = 4
End With
Sheet1.Range("C6").Select



"BEEJAY" wrote:

Column B ALWAYS has entries in each cell.
The entries in B always go to bottom of used range on worksheet.
Once last cell is determined, need to select Column C6 down to last cell,
in order to process the following code.

' Select C6 down to last used row

Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=($B6=""*"")"
Selection.FormatConditions(1).Interior.ColorIndex = 4

any help would be appreciated.

Thanks to all, for the prompt input.
With the following modification, I got exactly what was needed.

Dim ws As Worksheet
Set ws = Worksheets("Pricing")
Dim ILastRow As Long

ILastRow = ws.Range("B:B").SpecialCells(xlCellTypeLastCell).R ow
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

Thanks Again.

"Vergel Adriano" wrote:

Try something like this.

Dim lLastRow As Long
lLastRow = Sheet1.Range("B:B").SpecialCells(xlCellTypeLastCel l).Row
With Sheet1.Range("C6:C" & lLastRow)
.Select
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=($B6=""*"")"
.FormatConditions(1).Interior.ColorIndex = 4
End With
Sheet1.Range("C6").Select



"BEEJAY" wrote:

Column B ALWAYS has entries in each cell.
The entries in B always go to bottom of used range on worksheet.
Once last cell is determined, need to select Column C6 down to last cell,
in order to process the following code.

' Select C6 down to last used row

Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=($B6=""*"")"
Selection.FormatConditions(1).Interior.ColorIndex = 4

any help would be appreciated.