Find & Replace Dialog Box - Error Msg When Implementing

I have the following code in a macro to open up a find dialog box, but it does not seem to work. I am getting the following message when I try to find something:

Microsoft Office Excel cannot find any data to replace. Check if your search formatting and criteria are defined correctly. If you are sure that matching data exist in this workbook, it may be on a protected sheet. Excel cannot replace data on a protected sheet.

I checked the data I am trying to find and replace and it is correct. Please HELP me!

Hi

You didn't post your code

'Open up charts worksbook.
Workbooks.Open ("E:\Reports\Charts\030.xls")

'Goes to last tab.
Worksheets(Worksheets.Count).Activate

'Open the find and replace dialog box in the charts worksheet, so you can change the labor information.
Application.Dialogs(xlDialogFormulaFind).Show

'Save charts spreadsheet.
ActiveWorkbook.Save

The code above is what I am using. I can't get the find and replace to do what it should though. It opens up the dialog box though.

Hi,

I am trying to figure out why it don't work, and I found that it does work on somethings. It will find things that are not in a formula, but I want it to find something in a formula. Is there a way to find something in a formula????????? PLZZZ HELP

It works for me - is the dropdown in the formula box set to Look In: Formulas or Values?

Hi Richard,

I forgot to add .xls on the end of the file changing. Now it works somewhat but not exactly. When I do a replace all for the file, it is making me search for the file how ever many times I need to change it. I want to change them all at once without looking for the file 100 times!!

I am able to do the find and replace all perfectly manually without having to open the file if it is already open. Please help me