Hi,

I need a line of code that means this sudo code:

if 'cell is not hidden' then

end if




thx a lo

--
kanuva
-----------------------------------------------------------------------
kanuvas's Profile: http://www.excelforum.com/member.php...fo&userid=2791
View this thread: http://www.excelforum.com/showthread.php?threadid=48484

Dim cell as Range
set cell = Range("B9")
if cell.EntireRow.Hidden = False then

End if

if you mean the cell is in a row that is not hidden. for a column, change
EntireColumn.Hidden = False

if you mean the formula is hidden under format =cells, protection tab

if cell.formulaHidden = False then

end if

--
Regards,
Tom Ogilvy

"kanuvas" wrote in
message ...

Hi,

I need a line of code that means this sudo code:

if 'cell is not hidden' then

end if




thx a lot


--
kanuvas
------------------------------------------------------------------------
kanuvas's Profile:
http://www.excelforum.com/member.php...o&userid=27911
View this thread: http://www.excelforum.com/showthread...hreadid=484849

Try something like the following:

If Range("B2").EntireRow.Hidden = True Then
MsgBox "Hidden"
Else
MsgBox "Not hidden"
End If

' or

If Range("B2").EntireColumn.Hidden = True Then
MsgBox "Hidden"
Else
MsgBox "Not hidden"
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"kanuvas"
wrote in message
...

Hi,

I need a line of code that means this sudo code:

if 'cell is not hidden' then

end if




thx a lot


--
kanuvas
------------------------------------------------------------------------
kanuvas's Profile:
http://www.excelforum.com/member.php...o&userid=27911
View this thread:
http://www.excelforum.com/showthread...hreadid=484849