Hello:

I am using below code :

Sub StoreReport_PDF()

Dim s As String, ss As String, FPath As String, FName As String

FPath = Range("A2").Value
FName = Range("A1").Value
SRange = Range("B1").Value
SEnd = Range("C1").Value

s = FPath & FName & "Temp.pdf"
Dim r As Range, rr As Range, fs As String

'Set r = Range(""" & SRange """ & Range("A" & Rows.Count).End(xlUp))

Set r = Range("A138", Range("A" & Rows.Count).End(xlUp))
I need code : Set r = Range("A138", Range("A" & Rows.Count).End(xlUp)) to be changed so that A138 becomes variable and pick the value as SRange as defined above.

Let me know if you have any questions.
Thanks.

Riz