Hi,
I have a rng that I want to check if there are any hidden not empty
cells (- the visible cells are of no interest.) It work ok if there
exist non-empty hidden cells, but I get error when it can't find any
cells (some of the code in lines below).

OK, fine I thought - then I make an error trap and make GoTo if I get
an error ... but I can't make it work and I now I ask:

Check rng if hidden cells aren't empty - I CAN'T be the first to need
this - can anybody please give me a sugestion how to solve the task?
There might be another better approach, or am I on the right track?

On Error GoTo FormCheck
'check contants and formulas together
If
Application.WorksheetFunction.CountA(Union(Range(r ng).SpecialCells(xlCellTypeConstants,
23), Range(rng).SpecialCells(xlCellTypeFormulas, 23))) 0 Then
Set rngconform = Union(Range(rng).SpecialCells(xlCellTypeConstants,
23), Range(rng).SpecialCells(xlCellTypeFormulas, 23))
End If

... Other code ...
Exit Sub

FormCheck:
etc


/Regards
tysk