Hi Stefi,

Try:

Dim EmptyCells As Range

On Error Resume Next
Set EmptyCells = Columns("C:C"). _
SpecialCells(xlCellTypeBlanks).EntireRow
On Error GoTo 0



---
Regards,
Norman



"Stefi" wrote in message
...
Hi All,

I defined a range containing empty cells in column C:
Dim emptycells As Range
Set emptycells = Columns("C:C").SpecialCells(xlCellTypeBlanks)

How can I define another range that contains all rows in which these empty
cells occur?

Thanks,
Stefi