I think my original approach is not going to work. I am able to get the code below to work and I was wondering if there is a way to get the 1 in AHU-1 to increase all the way to a number, in this case 20, and have the file name it is printing to do the same thing so the file is automatically titled. I am sorry I am really new to this software and I thought I could just copy and paste code, but its just not that simple for me.

Sub Test()
 Dim blnReplace As Boolean
 Dim sht As Object

```
blnReplace = True
For Each ws In Sheets
    If InStr(ws.Name, "FIV") And InStr(ws.Name, "AHU-1") And InStr(ws.Name, "CVB-1") Then
        ws.Select blnReplace
        blnReplace = False
    End If
Next
Selection.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:\USERS\USERNAME\DESKTOP\AHU-1.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
blnReplace = True
For Each ws In Sheets
    If InStr(ws.Name, "FIV") And InStr(ws.Name, "AHU-2") And InStr(ws.Name, "CVB-2") Then
        ws.Select blnReplace
        blnReplace = False
    End If
Next
Selection.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:\USERS\USERNAME\DESKTOP\AHU-2.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

```

End Sub