multiple Excel 2010 files changes

[novica1977]

Hi!

I have over a 100 excel files in one folder and in every workbook need to change P2 cell with same value.

Please help!

Thanks
Novica

 

[patel45]

Sub OpenfileUpdate()
Dim strFile As String
mFolder = "D:\DATA\test\"
strFile = Dir(mFolder & "*.xls*")
Do While strFile <> ""
    Workbooks.Open mFolder & strFile
    Worksheets(1).Range("P2").Value = "newValue"
    ActiveWorkbook.Close True
    strFile = Dir
Loop
end sub

 

[novica1977]

it works excellent!!

thanks, patel45