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.