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.