Sheet Properties

[Frank Kabel]

Hi
try the following UDF:
Function get_visible_status(sheetname As String)
get_visible_status = CBool(ActiveWorkbook.Worksheets _
(sheetname).Visible)
End Function

-----Original Message-----
I'm looking for a function or macro that will

automatically display the visible or hidden properties of
a sheet in a Workbook e.g.

Name Status
Sheet 1000 Visible
Sheet 2000 Hidden
Sheet 3000 Visible

This will allow me to hide sheets, but new users will

know there are some sheets that are hidden by looking at a
Index of worksheets.

 

[Carl Nicholson]

Thanks works perfectly!
--
<º}}}><

Hi
try the following UDF:
Function get_visible_status(sheetname As String)
get_visible_status = CBool(ActiveWorkbook.Worksheets _
(sheetname).Visible)
End Function

-----Original Message-----
I'm looking for a function or macro that will

automatically display the visible or hidden properties of
a sheet in a Workbook e.g.

Name Status
Sheet 1000 Visible
Sheet 2000 Hidden
Sheet 3000 Visible

This will allow me to hide sheets, but new users will

know there are some sheets that are hidden by looking at a
Index of worksheets.