Sende mail til adresse i bestemt celle

Hej
Jeg har følgende macro (hentet fra Ron's excel tips)
Sub Page_1()
    Dim FileName As String

    If ActiveWindow.SelectedSheets.Count > 1 Then
        MsgBox "There is more then one sheet selected," & vbNewLine & _
              "ungroup the sheets and try the macro again"
    Else
        'Call the function with the correct arguments


        'For a fixed range use this line
        FileName = RDB_Create_PDF(Range("A1:E77"), "", True, False)

        'For the selection use this line
        'FileName = RDB_Create_PDF(Selection, "", True, True)

        'For a fixed file name and overwrite it each time you run the macro use
        'RDB_Create_PDF(Selection, "C:\Users\Ron\Test\YourPdfFile.pdf", True, True)

        If FileName <> "" Then
            RDB_Mail_PDF_Outlook FileName, "isn004@maersk.com", "Audit trail for (D4)", _
                                "Please see attach Audit trail for sh.Range(D4)" _
                              & vbNewLine & vbNewLine & "Regards Ron de bruin", False
        Else
            MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
                  "Microsoft Add-in is not installed" & vbNewLine & _
                  "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
                  "The path to Save the file in arg 2 is not correct" & vbNewLine & _
                  "You didn't want to overwrite the existing PDF if it exist"
        End If
    End If
End Sub

Og den virker super godt - det eneste jeg gerne ville have er at den henter modtager adressen i eks. "Sheet1 B2"
Altså den sender det aktive sheet - men henter mail adressen i et andet ark - således at fremover så kan folk blot ændre adressen i "Sheet1" og skal ikke ind i macroen.
Det skal lige siges - Macroen skal bruges på flere ark løbende....

Takker for hjælpen på forhånd.
Hilsen
Ida

SOm skal på kursus i VBA / excel ultimo Juni - og glæder sig som et lille barn ;o)