How to automatically add the Value of a spesific Cell into the "Save" filename?

Hello guys,

How do I automatically add the Value of a specific Cell (Range("H8".Value) into the "Save" name when running the following Macro:

Please Login or Register  to view this content.

If I do the following then it also automatically ads .xlms between the FileName and the Range("H8").Value......

Please Login or Register  to view this content.

you can Try adding the following:

Sub ExcelToPDF2()

Dim iPtr As Long
Dim sFileName As String

If iPtr = 0 Then
sFileName = ActiveWorkbook.FullName & ".pdf"
Else
sFileName = Left(ActiveWorkbook.FullName, iPtr - 1) & ".pdf"
End If

sFileName = Range("h8").Value + ".pdf"

If sFileName = "False" Then Exit Sub

Sheet1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFileName, Quality:=xlQualityStandard, openAfterPublish:=True
End Sub