VBA Define columns to print on Active sheets array

Hi,

I have the below macro to check all sheets on my Workbook that have data in cell 101 and print:

Sub CHECKSHEET2()
Dim Sh As Worksheet
Dim Arr() As String
Dim N As Integer
N = 0
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Visible = xlSheetVisible And Sh.Range("A101").Value <> "" Then
N = N + 1
ReDim Preserve Arr(1 To N)
Arr(N) = Sh.Name
End If
Next
With ActiveWorkbook
.Worksheets(Arr).PrintOut
End With
End Sub

Also, sometimes I need to send the printout to Adobe Acrobat (as one of the printers from the printer selection list on excel) to create a PDF file and currently if there is more than one active sheet to print, the Macro saves the printout as one file with separate pages rather than several individual PDF files (the latter of which is not what I want as there could be a lot of pages!).

I would also like to tell the Macro to not print out columns C to E and M as this data is not necessary for the print outs, but I'm not sure how to do this without losing any of the macro's functionality.

Any help would be greatly appreciated.

Thanks WORKSHEET-TEST-.xls

Hi John, thanks for the response and advice on how to post code (I always wondered how that was done)

I'm away from my computer so will try out the new code when I next get the chance.

In response to your question I'm using excel 2007 on windows 7

Not really. It was first created in 2003 then we upgraded to 2007