Printing worksheets from a macro

[nehpets12]

I have 2 columns "a" and "b"
in "a" they are either 0 or 1
in b are the worksheets I want to print ie Sheet2 Sheet3

I need a macro that goes down column a till it finds a 1 then goes to column b and prints out that worksheet and then returns and carries on untill it finds another 1 and prints the next one

[Barrie Davidson]

On 2002-03-11 06:59, nehpets12 wrote:
I have 2 columns "a" and "b"
in "a" they are either 0 or 1
in b are the worksheets I want to print ie Sheet2 Sheet3

I need a macro that goes down column a till it finds a 1 then goes to column b and prints out that worksheet and then returns and carries on untill it finds another 1 and prints the next one

Here you go:

Sub PrintOut()

' Written by Barrie Davidson

Dim SheetToPrint As String



'Go to the error handling routine

'if an error is encountered

On Error GoTo ErrorMessage



'Turn off the screen

Application.ScreenUpdating = False



'Start at A1

Range("A1").Select



'Do this loop until the there is nothing

'in the selected cell

Do Until Selection.Value = ""

    If Selection.Value = 1 Then 'if the selected cell = 1

        SheetToPrint = Selection.Offset(0, 1).Value 'get the sheet name to print

        Sheets(SheetToPrint).PrintOut 'print that sheet

    End If

    Selection.Offset(1, 0).Select 'go the next cell

Loop



'Turn the screen on

Application.ScreenUpdating = True

Exit Sub



'Error handling routine

ErrorMessage:

    MsgBox prompt:="Macro error, contact macro author"

    Application.ScreenUpdating = True

End Sub

Regards,