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:

<pre>
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
</pre>

Regards,