Name extracted pdf files after a relative cell

[Pteroglossus]

Hi everyone,

I have a series of sheets separated by horizontal page breaks which I'm exporting to individual pdf files.

I managed to adapt the code here made for vertical page breaks: Save each page break as seperate PDF to work on my file.

The only problem I'm facing is the naming of files. I'd like to name the files after a Surname that appears in I3 cell for the first page, Q3 for the second, Z3 for the next and so on.

Here is my attempt:

Sub exportPages()

Set Sht = Worksheets("Relevé mensuel")
' The variable Sht now holds the sheet that should be printed, so we can use that in the macro instead of repeating Worksheets("Sheet1")
ExportDir = "Z:\"
' A string/text with the export directory, should end with a \
NrPages = Sht.VPageBreaks.Count + 1
' Using the Sht object, count the number of horizontal page breaks and add one to know the number of pages

For p = 1 To NrPages
    ' Loop though the pages, actually the loop is only there as a kind of "counter"
    If p = 1 Then
        Columnwithname = Columns(9)
        ' The first page starts on the left and has no page break before it, so the column with your name is I
    Else
        Columnwithname = Sht.VPageBreaks(p - 1).Location.Column
        ' Page 2 starts after Pagebreak 1, this code finds the column of the page break (=the column directly after it)
    End If
    
    FoundName = Sht.Range(Columnwithname & Rows(3)).Value
    ExportName = "Export_" & FoundName & "_" & p & ".pdf"
    ' Create a variable with the name in the sheet
    
    Sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ExportDir & ExportName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=p, to:=p, OpenAfterPublish:=False
    ' Export the current page with the current name to the default location
Next

Set Sht = Nothing
' Clean up variables

I run into an Runtime error 13 "Type Mismatch" at "FoundName = Sht.Range(Columnwithname & Rows(3)).Value."

The "Columnwithname" definition seems to work as you can see below, I simply don't manage to point to the third row.

Would you have an idea?

Thanks,
Kevin