Hello everyone
I have a loop that do same procedure twice but slightly different .. and I need to use boolean to shorten those lines
    For i = 0 To PNum - 1 Step 2        Set newPDF = CreateObject("AcroExch.pdDoc")
        newPDF.Create
        NewName = F & "Txp " & Cells(r, 3).Value & ".pdf"
        newPDF.InsertPages -1, PDDoc, i, 1, 0
        newPDF.Save 1, NewName
        newPDF.Close
        Set newPDF = Nothing
        
        Set newPDF = CreateObject("AcroExch.pdDoc")
        newPDF.Create
        NewName = F & "Vsd " & Cells(r, 3).Value & ".pdf"
        newPDF.InsertPages -1, PDDoc, i + 1, 1, 0
        newPDF.Save 1, NewName
        newPDF.Close
        Set newPDF = Nothing
        
        r = r + 1
    Next i
I tried to use boolean and use also If i Mod 2 but couldn't figure it out ..
Can you help me please?