It's not working Tom, no updating, why do you think?

"Tom Ogilvy" wrote:

Sub UpdateBooks()
Dim i as long, j as long, sStr as String
dim myArray(1 to 500) as String
i = 1
sStr = Dir("C:\Myfolder\*.xls")
do while sStr < ""
myArray(i) = "C:\MyFolder\" & sStr
sStr = dir()
Loop
for j = 1 to i-1
set wkbk = workbooks.Open(myarray(i))
with wkbk.worksheets(1)
.Range("D17").formula = "= C17*1.3352"
.Range("C25").formula = _
" =(SUM(B25*F20)/F19)/1.3352"
End with
wkbk.Close SaveChanges:=True
Next
End Sub



--
Regards,
Tom Ogilvy



"JavyD" wrote in message
...
This is what I want D17 to be = C17*1.3352 and C25 I want it to be
=(SUM(B25*F20)/F19)/1.3352, both formulas, not values like the code below
has.

"JavyD" wrote:

Tom, this sounds great, but would it replace D17 and C25 as value
1.3325.
That's not exactly what I want, I want it to replace 1.40 with 1.3352?
Is
this possible?

"Tom Ogilvy" wrote:

D17 is really meaningless if there is more than one sheet in the
workbook.
You don't say what your situation is.

This assumes you don't have to test the current value of the cells.

Sub UpdateBooks()
Dim i as long, j as long, sStr as String
dim myArray(1 to 500) as String
i = 1
sStr = Dir("C:\Myfolder\*.xls")
do while sStr < ""
myArray(i) = "C:\MyFolder\" & sStr
sStr = dir()
Loop
for j = 1 to i-1
set wkbk = workbooks.Open(myarray(i))
with wkbk.worksheets(1)
.Range("D17,C25").Value = 1.3325
End with
wkbk.Close SaveChanges:=True
Next
End Sub

--
Regards,
Tom Ogilvy



"JavyD" wrote in message
...
Hey guys,

Lets see if this possible with a VBA. I have over 100 work books in
a
folder. There's two specific cells in each work book that I need to
change.
Currently the cell is multiplying a figure times 1.40, I need a VBA
if
possible to take each work book in that folder, and replace 1.40
with
1.3325
in those two cells. Those two cells being D17 and C25. Is this
possible.