using 2 cells to name file in macro saveing to PDF

[jamo84]

I have been able to save to PDF using 1 cell to name the file but require 2 i want to use I7 and I6
Im unsure of the next step and surprised i got this far

Sub saveaspdf()
'
' saveaspdf Macro
'


'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\scottnay\Desktop\Test\Quote" & Range("I6").Value & ".PDF", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

 

[NdNoviceHlp]

It's not clear whether U want to combine I6 & I7 (or viceversa) into one file name....

Dim FileName As String
'combime I7 & I6
FileName = CStr(Range("I7").Value) & CStr(Range("I6").Value)
'****OR***
'combime I6 & I7
FileName = CStr(Range("I6").Value) & CStr(Range("I7").Value)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
 "C:\Users\scottnay\Desktop\Test\Quote" & FileName & ".PDF", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

It seems more likely that U want to choose between I6 and I7...

Dim FileName As String
'Use either I6 or I7
If MsgBox(prompt:="Do You want I6 file? (No = I7)", Buttons:=vbYesNo, Title:="Select file") = vbYes Then
FileName = CStr(Range("I6").Value)
Else
FileName = CStr(Range("I7").Value)
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
 "C:\Users\scottnay\Desktop\Test\Quote" & FileName & ".PDF", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

U really should properly identify your ranges with the sheet name. For example...

Sheets("Sheet1").Range("I7").Value

HTH. Dave