Excel Sheet import to PDF sheet

Option Explicit

Sub PrintTableToPDF()
'SUBROUTINE: PrintTableToPDF
'DEVELOPER: Ryan Wells
'DESCRIPTION: Print a table of your choosing to a PDF


Dim strfile As String
Dim myfile As Variant
Dim strTable As String, r As Range
Application.ScreenUpdating = False


'Enter the table name you want to save
strTable = InputBox("What's the name of the table you want to save?", "Enter Table Name") 'Table you want to save
    If Trim(strTable) = "" Then Exit Sub
        'Prompt for save location
        strfile = strTable & "_" _
        & Format(Now(), "yyyymmdd_hhmmss") _
        & ".pdf"
        strfile = ThisWorkbook.Path & "\" & strfile
        
        myfile = Application.GetSaveAsFilename _
        (InitialFileName:=strfile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and File Name to Save as PDF")
        
            If myfile <> "False" Then 'save as PDF
                Range(strTable).ExportAsFixedFormat Type:=xlTypePDF, Filename:=myfile, Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
            Else
                MsgBox "No File Selected. PDF will not be saved", vbOKOnly, "No File Selected"
            End If


Application.DisplayAlerts = False


LetsContinue:
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
Exit Sub
End Sub