Private Sub CommandButton5_Click()
' Salva fogli singoli in formato PDF nel percorso specificato c:
Dim strPath As String, strNome As String
Dim i As Long
strPath = "C:UsersDesktopprova"
  Application.ScreenUpdating = False
  For i = 4 To 7
    strNome = Sheets(i).Range("B1")
    Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    strPath & strNome & ".pdf", Quality:=xlQualityStandard, _
   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  Next i
  Application.ScreenUpdating = True
End Sub

for each sh in worksheets
    if right(sh.name, 1) like "[4-7]" then
        sh.ExportAsFixedFormat Type:=xlTypePDF, ...
    end if
next

Dim objFso As Object
Dim objFolder As Object
Set objFso = CreateObject("Scripting.FileSystemObject")
If objFso.FolderExists("C:usersdesktopabc") Then   ''Specificare il percorso della cartella
msgbox "La cartella ABC esiste già...", vbCritical, ("ATTENZIONE !!!")
Else
msgbox "La cartella ''ABC'' non esisteva sul Desktop." & Chr(13) & "Adesso che è stata creata... puoi salvare il file...", vbInformation, ("Nuova Cartella creata con successo... ")
Set objFolder = objFso.CreateFolder("C:usersdesktopabc")  'Specificare il percorso della cartella
                                                                    
End If

Set objFolder = Nothing
Set objFso = Nothing

Dim Variabile As Integer
Variabile = msgbox("Premi OK per salvare il file...", vbOKCancel)
If Variabile = 1 Then

Dim foglio As Variant
    foglio = Array()
    For i = 4 To 6     ' Salva i fogli 4,5,6  in un'unico file Pdf 
        ReDim Preserve foglio(i - 4)
        foglio(i - 4) = Sheets(i).Name
    Next i
    nomecartella = "Prova"                          'Scrivere il nome del file tra la'apice.  Oppure inserisci: =ActiveWorkbook.Name   così prende  il nome del file originale
    percorso = "C:usersdesktopabc"

    Sheets(foglio).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=percorso & nomecartella & ".pdf", _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False   ' Se vuoi visualizzarlo in automatico imposta su true

End If
End Sub