New to VBA - vba if a cell contains certain text then print that specific page

[JDSOuth49]

My Excel document contains 6 pages which are broken by page breaks.

The first 3 pages will always need to print, but pages 4, 5, and 6 only need to print if the there is text input into a specific cell:
IF D122 >0, THEN PRINT PAGES 1 THROUGH 4
IF D166 >0, THEN PRINT PAGES 1 THROUGH 5
IF D210 >0, THEN PRINT PAGES 1 THROUGH 6

Any help would be greatly appreciated.

 

[John_w]

Try this macro:

Public Sub Print_Specific_Pages()

    With ActiveSheet
        If .Range("D122").Value > 0 Then
            .PrintOut From:=1, To:=4
        ElseIf .Range("D166").Value > 0 Then
            .PrintOut From:=1, To:=5
        ElseIf .Range("D210").Value > 0 Then
            .PrintOut From:=1, To:=6
        Else
            .PrintOut From:=1, To:=3
        End If
    End With

End Sub

 

[JDSOuth49]

Thank you for the information works great.