Help Please Marco Needed for Margins and Cursor in A1

[cSciFiChick]

I have posted this before but the marco did not do what I needed. I would be so grateful if someone would help me. I process reports at my work while they are all different meaning different numbers of columns and rows of data and number of tabs etc. They each need to have three things before I send them.

• The data needs to be scrolled to the top and the cursor needs to be in A1
• The margins needs to be set to Top: .25 Bottom: .25 Left: .17 Right: .22 Header: .3 Footer: .3
• And the Print Area must be set to only include the data on that table. Normally I just highlight the whole page and under Page Layout I use Print Area-Set Print Area I do this on each tab. I have been told that it impossible in a macro because not every tab or report is going to have the same area of data.

So I am fine if I can just get the top two things in a Macro that will set those for every tab in the workbook.

 

[njimack]

See if this does what you want. It loops through each sheet of the active workbook and applies your changes

Sub x()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        .Cells(1, 1).Select
        
        With .PageSetup
            .LeftMargin = Application.InchesToPoints(6.69291338582677E-02)
            .RightMargin = Application.InchesToPoints(8.66141732283465E-02)
            .TopMargin = Application.InchesToPoints(9.84251968503937E-02)
            .BottomMargin = Application.InchesToPoints(9.84251968503937E-02)
            .HeaderMargin = Application.InchesToPoints(0.118110236220472)
            .FooterMargin = Application.InchesToPoints(0.118110236220472)
            .PrintArea = ActiveCell.CurrentRegion.Address
        End With
        
    End With
Next ws
End Sub

 

[cSciFiChick]

See if this does what you want. It loops through each sheet of the active workbook and applies your changes

Sub x()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        .Cells(1, 1).Select
        
        With .PageSetup
            .LeftMargin = Application.InchesToPoints(6.69291338582677E-02)
            .RightMargin = Application.InchesToPoints(8.66141732283465E-02)
            .TopMargin = Application.InchesToPoints(9.84251968503937E-02)
            .BottomMargin = Application.InchesToPoints(9.84251968503937E-02)
            .HeaderMargin = Application.InchesToPoints(0.118110236220472)
            .FooterMargin = Application.InchesToPoints(0.118110236220472)
            .PrintArea = ActiveCell.CurrentRegion.Address
        End With
        
    End With
Next ws
End Sub

I am getting an error. "Run-time error '1004': Select method of Range class failed.

 

[cSciFiChick]

Can someone please help..I can't get this to work.

 

[Fluff]

Try adding this line as shown

    With ws
        [COLOR=#ff0000]ws.Activate[/COLOR]
        .Cells(1, 1).Select