codice:
Const path As String = "C:\Documents and Settings\luca\Desktop\test\"
Dim fileName As String
fileName = Dir(path + "*.xls")
While fileName <> ""
    Workbooks.Open path + fileName
    Range("A2").FormulaR1C1 = "v6"
    ActiveWorkbook.Save
    ActiveWindow.Close
    fileName = Dir
Wend