File name based on cell value not working

Hi all

For some reason the file name is not working with a reference to cell H6. Cell H6 is a date value.

If anyone could help that would be greatly appreciated.

Thanks

Sub SendPDF()

' Create PDF of active sheet and send as attachment.
'
    Dim strPath As String, strFName As String
    Dim OutApp As Object, OutMail As Object
    
    ActiveSheet.PageSetup.PrintArea = "$A:$J"
    
     'Create PDF of active sheet only
    strPath = Environ$("temp") & "\" 'Or any other path, but include trailing "\"
    
    strFName = ActiveWorkbook.Name
    strFName = Left(strFName, InStrRev(strFName, ".") - 1) & Range("H6") & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        strPath & strFName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

try Range("H6").Value

GP

Hey mate

Thanks for the response. It hasn't worked and when it goes to the de-bugger it highlights the following paragraph in yello.

not sure if t

You are welcome. You will also need to specify sheet. For example activesheet.range("h6").value. GP

hey mate

Still won't work.

Same issue again, highlights the following paragraph.

Sub SendPDF()

' Create PDF of active sheet and send as attachment.
'
    Dim strPath As String, strFName As String
    Dim OutApp As Object, OutMail As Object
    
    ActiveSheet.PageSetup.PrintArea = "$A:$I"
    
     'Create PDF of active sheet only
    strPath = Environ$("temp") & "\" 'Or any other path, but include trailing "\"
    
    strFName = ActiveWorkbook.Name
    strFName = Left(strFName, InStrRev(strFName, ".") - 1) & ActiveSheet.Range("H6").Value & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        strPath & strFName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Hi again. Date value in cell H6 will need to be converted to a string (without "/" characters) to be valid as a filename.

Thanks a lot guys, worked a treat.

That makes sense. Thanks heaps for your help!