John,
There should only be one dot in front of "range".
The dot ties the range to the sheet object in the "With" statement.

'For instance...
With Sheets(2)
.Range("A1").Value = 10
End With

'Is the same as...
Sheets(2).Range("A1").Value = 10

Again, please note that the Conditional Formatting in cells does not sort.
--
Jim Cone
Portland, Oregon USA



"Brenner"
wrote in message
Hi Jim -

Thanks for the response! I'm not sure what to do with the bottom section of
your code. Wherever I have ..Range - it all comes out in red. I haven't used
...Range before and am not sure how to deal with it. Just a hint is proly all
I need.
Again, thanks for taking the time...
John


(This part...)
'Add values for AutoFill
With Sheets("CRP Status")
...Range(.Cells(firstRow, destCol + 1), .Cells(firstRow + 1,
destCol + 1)).Value = Application.Transpose(Array(1, 2))

'AutoFill
...Range(.Cells(firstRow, destCol + 1), .Cells(firstRow + 1, _
destCol + 1)).AutoFill Destination:=.Range(.Cells(6, destCol + 1), _
.Cells(LastCol - FirstCol + firstRow, destCol + 1)), Type:=xlFillSeries

'Sort
...Range(.Cells(firstRow, 3), .Cells(LastCol - FirstCol + firstRow, _
destCol + 1)).Sort key1:=.Columns(destCol + 1), order1:=xlDescending

'Clear autofilled column
...Columns(destCol + 1).ClearContents

--
Cool