Sorry about last post, I dont know what happened
For i = 1 To ThisWorkbook.Worksheets.Count
    ThisWorkbook.Worksheets(i).Visible = True
Next i