How to Update One Tab With Find & Replace VBA Code???

[SEOT]

All,

My find and replace code is going to all the tabs in my workbook, but I want it to stop in my current spreadsheet I am on. Here is my code:

'Open up charts workbook.
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(xlDialogFormulaReplace).Show

'Save charts spreadsheet.
ActiveWorkbook.Save

How do I make it only do the current tab I am in? I have it go to to the last tab to update it, but it wants to update them all!! Please help me- SEOT

[shg]

If I understand your question, that's an option in the Find and Replace dialog. Click Options, then select Sheet in the first drop-down.

[SEOT]

Shg,

I don't have that option with the code I am using. I have that option when I do it manually via picking the Find under the Edit menu. I don't know how to do this using VBA code though. thanks

[shg]

OK, then I don't understand ...

You're displaying the find and replace dialog, so someone has to enter what to find and what to replace it with. If that's correct, then they can set the option. If there is a way to manipulate the option from VBA, I don't know it.

If you want instead to dump the dialog and do the find and replace in VBA, that's possible.

[SEOT]

SHG,

I used the following code for a find

Application.Dialogs(xlDialogFormulaReplace).Show

, but it kept asking me for a path of the file everytime it came to a replacing the information. I had about a 100 replacements so this would not work. Do you know anything else to do??? I can't think of anything at the moment. I keep looking though. Is there a find and replace? I did not see one besides using the code mentioned above. Please help

[shg]

What are you trying to do?