Løkke med Lopslag

noget i denne still?
http://www.exceltip.com/st/List_files_in_a_folder_with_Microsoft_Scripting_Runtime_using_VBA_in_Microsoft_Excel/446.html

Hej jape44! Jeg tror ikke, det helt er sådan. Jeg har lavet følgende:

Sub ImportPL()

Dim FileNameDS As String
FileNameDS = Range("l1") & " " & Range("l2") & ".xls"

        ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-7],'[" & FileNameDS & "]P&L'!R7C1:R9C8,8,FALSE)"

End Sub

Her slår den op på en enkelt celle, nu vil jeg bare gerne have lavet en løkke, så den gennemgår alle konti, der forekommer inden for et givent range.

Lukker pga. dårlig formulering