Dim s3 As String
    Dim rng As Range

    Set SourceFile = Application.Workbooks.Open("c:financeinv.xls")
    Set SourceSheet = SourceFile.Worksheets(Source)

    s3 = SourceSheet.Range("A3").Value
    rng = SourceSheet.Range("A3:A30")