I have 4 questions, van you help?

Hi,

This might help with 2 out of 4

Should select the first sheet and unfilter ranges

Sub 2_out_of_4
    On Error Resume Next
    Dim sht As Worksheet
    For Each sht In ActiveWorkbook.Worksheets
    ActiveSheet.ShowAllData
    Next sht
    Sheets(1).Select    
End Sub

VBA Noob

Hi,

Sorry should be

Private Sub Workbook_Open()
 On Error Resume Next
    Dim sht As Worksheet
    Application.ScreenUpdating = False
    For Each sht In ActiveWorkbook.Worksheets
    ActiveSheet.ShowAllData
    Next sht
    Sheets(1).Select
    Application.ScreenUpdating = True
End Sub

See link which shows how to get to thisworkbook

http://www.mcgimpsey.com/excel/modules.html

VBA Noob