pdf Druck nach bestimmter tabelle

Sub test1()
Dim i, j
Debug.Print Application.ActivePrinter
ChangePrinter "FreePDF"
i = Worksheets.Count
For j = 1 To i
Sheets(j).Select
ActiveWindow.SelectedSheets.PrintOut
Next j
'wie muss ich tun um die folgenden 4 Zeilen oberhalb Next j
'einzufügen mit der Bedingung, dass die folgenden 4 Zeilen
'nur dann ausgeführt werden nachdem das Tabellenblatt mit dem
'Namen "Andreas" gedruckt wurde.
ShellExecute Application.hwnd, "Open", "C:\Temp\test.pdf", _
vbNullString, vbNullString, vbNormalFocus
ShellExecute Application.hwnd, "print", "C:\Temp\test.pdf", _
vbNullString, vbNullString, vbNormalFocus
End Sub