Find & Replace Stop In Current Tab - Not Go To Next One

[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]

Please read the Forum Rules and then start a new thread with your code wrapped in Code Tags.

Thanks.