Gem detaljer makro

Jeg har lavet følgende makro, der skal gemme alle detaljer i samtlige ark.
Sub Macro1()

Dim wsh As Worksheet
    For Each wsh In ActiveWorkbook.Worksheets
        Range("A1").Select
        Range(Selection, Selection.End(xlToRight)).Select
        ExecuteExcel4Macro "SHOW.DETAIL(2,50,FALSE,,33)"
        ExecuteExcel4Macro "SHOW.DETAIL(2,33,FALSE,,2)"
        Range("A2").Select
    Next
End Sub
Når jeg eksekverer makroen, får jeg dog en fejl ud for eksekveringen af makroen, som siger, at jeg bruger for mange argumenter.
Er der nogen, der kan lure den?