Hi
try

sub foo()
dim wks as worksheet
for each wks in activeworkbook.worksheets
wks.visible=true
next
end sub

"Bombermanx" wrote:

I have some sheets that are invisible.
I need a code that makes alla sheets in a workbook visible.