Coding Multiple Cases in VBA

I am using the code from your post #23

When you say put it at the end, where exactly do you mean?

I put it at the very end...went to debugger
I put it just before End Sub ... went to debugger

Not real sure where to insert the PRINT command for "Charts"

Thanks

BillofSoo

VBA Noob
This is the code I am using to print the various arrays based on the criterion >50

Sub Test()
Dim ArrRng As Variant
Dim ArrPrint As Variant
Dim i As Long
    ArrRng = Array("J28", "J38", "J50", "J61", "J73", "J93")
    ArrPrint = Array("S100:U161", "S163:U188", "S190:U218", "S220:U269", "S271:U313", "S315:U382")
For i = 0 To UBound(ArrRng)
    With Range(ArrRng(i))
        If IsNumeric(.Value) Then
            If .Value > 50 Then
                With ActiveSheet
                    .Range(ArrPrint(i)).PrintOut Copies:=1
                End With
            End If
        End If
    End With
    
Next i
End Sub

The code below is the code you wrote me last night and told me to put it at the "end" of the above code.(it is the module code you wrote in post #23 on this forum and it works fine).

Code:

Range("Chart").PrintOut Copies:=1Uses

I tried to just tag it to the end of the code you previsously wrote but it just causes errors.

The range of the data on the Worksheet called "CHART" is B3:H40.

Where exactly do I insert this line into the code?

I feel a bit stupid but I'm new to this.

Would you mind telling me exactly where to insert the code to print the range B3:H40 from the worksheet "Chart"?

Thanks,

BillofSoo

Hi VBA Noob

Are you there?

BillofSoo