Ed,

Try the macro below.

HTH,
Bernie
MS Excel MVP

Sub CutLinks()
Dim myStr As String
Dim myS As Worksheet
Dim myC As Range

myStr = "09-2009"

For Each myS In Worksheets
FindAgain:
Set myC = myS.Cells.Find(myStr, , xlFormulas, xlPart)
If Not myC Is Nothing Then
myC.Value = myC.Value
GoTo FindAgain
End If
Next myS

End Sub


"Ed Davis" wrote in message ...
I have several workbooks with as many as 35 - 40 worksheets.
Each workbook (And as many as 20 sheets from each workbook) Calls cells from the previous months
workbooks.
I would like to Copy Paste Values using as an example any cell in the workbook that has 09-2009 in
the Formula. The file name may be Sales -9-2009 or Loja 09-2009 and there are several others,
However the 09-2009 is in the filename for each workbook.
If I can do this I would be able to move or remove the older files from their default directory.



--
Thank You in Advance
Ed Davis