エクセル マクロ ボタン一つでブックとＰＤＦの連番を自動更新して保存させたい

Question

エクセル　マクロ　ボタン一つでブックとＰＤＦの連番を自動更新して保存させたい

下記ソースは変動するパス（DK5およびDK6）により保存先フォルダを確定（無ければ作成）し、
ブックで指定した４桁連番（DM4）※0001～　をＰＤＦ名に付けてＰＤＦ保存するものです。
保存先フォルダに同名ＰＤＦがある場合にはＰＤＦ保存名連番に＋１して保存します。
ただし、ブックの連番は＋１されないので相違が出てしまいます。

ＰＤＦ保存名連番が＋１される時はその連番をブックの方に反映させてから、ブックをＰＤＦ
保存させたいのですが可能でしょうか。
可能であればそのまま貼り付けて使えるソースをご教授願えないでしょうか。
ズブの素人なのでそれを見て勉強します。

Option Explicit

#If Win64 Then
  Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As LongPtr
#Else
  Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
#End If

Sub PDF名前自動_納品書()

Dim i As Long
Dim fn As String
Dim myPath As String

myPath = "\Mame-saba1\販売管理\納品・請求書\"

For i = Range("DM4") To 9999
    fn = myPath & Range("DK5") & "\" & Range("DK6") & "\MAQ-NB" & Format(i, "0000")".pdf"
    If Dir(fn) = "" Then
        MakeSureDirectoryPathExists fn
        Sheets("納品書").PrintOut , ActivePrinter:="Microsoft Print to PDF", prtofilename:=fn
        Exit For
    End If
Next

End Sub

Answer 1

Range("DM5").Value = i
を入れるだけでした。
バカな質問をして申し訳ございません。

Answer 2

DM4に保存したPDFの連番を設定すればOKですよね？
その方法がわからないレベルであれば、入門書をめくってください。

Comments

[kensproject]

ご回答ありがとうございます。
エクスプローラフォルダ内の既存連番を見た上での更新値をブック内に設定したのちにＰＤＦ保存する感じです。
入門書めくってみます。

[kensproject]

Range("DM5").Value = i
を入れるだけでした。
バカな質問をして申し訳ございません。
ありがとうございました。

[退会済みユーザー]

誰かに相談した瞬間に自己解決するのは「プログラマー（に限らず？）あるある」ですよね。
ともあれ、解決して何よりです。