Selecting One sheet

[Braken666]

Hi All,

I am new here and was hoping for some help I have some VB code that changes details across a who workbook I only want it to run on sheet1, can someone help me redesign to get this working. I have taken this list of names out of the fndlst as they are sensitive.

Sub test()

Dim sht As Variant
Dim fndlst As Variant
Dim rplclist As Variant


fndlst = Array("GB")
rplclist = Array("1", "2", "3", "4", "5", "6", "7", "8", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "")

For x = LBound(fndlst) To UBound(fndlst)

For Each sht In ActiveWorkbook.Worksheets
sht.Cells.Replace what:=fndlst(x), Replacement:=rplclist(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False

Next sht

Next x

End Sub

 

[hiker95]

Braken666,

I have asked the administrator to remove my two previous replies. If they have not been removed yet, then, please ignore them.

Welcome to the MrExcel forum.

1. What version of Excel, and, Windows are you using?

2. Are you using a PC or a Mac?


To start off, and, so that we can get it right on the first try:

Can you post a screenshot of the actual raw data worksheet?

And, can you post a screenshot of the worksheet results (manually formatted by you) that you are looking for?

To post a small screen shot (NOT a graphic, or, picture, or, flat text) try one of the following:

MrExcel HTML Maker
If you do not know how to install and how to use HTML Mr.Excel Maker
https://www.youtube.com/watch?v=JycvgGppxt0&feature=youtu.be

Excel Jeanie
Download

Borders-Copy-Paste
http://www.mrexcel.com/forum/about-board/444901-how-create-table-like-aladin.html#post2198045

To test the above:
Test Here


Or, you can upload your workbook to (the BLUE link-->) Box Net ,
sensitive data changed
mark the workbook for sharing
and provide us with a link to your workbook.