Simpler code for to make all sheets visible

[Paul Sansom]

Hi
The following code works to make visible all sheets following different views, and i have been trying every syntax for a 1 line solution

            For Each ws In Sheets
                ws.Visible = xlSheetVisible
            Next ws

Is there a command like...Application.Sheets.Visible = xlSheetVisible. ?? (Note this does no work in Objects).

Cheers Paul

 

[Fluff]

AFAIK there is no "1line" solution.
What do you think is wrong with what you have posted?