Here is what I need to do and I have wasted all sunday on it so help would appreciated.
I have 5 different (list) of words that I am searching for within a workbook and if they appear I would like some function to return a 1 below the word for each different sheet.
So here goes the code that does NOT work and I have not even gotten to the list of words yet.
This only finds the word "value" it does not return a 1 or a 0.Sub Find()
For Each Sheet In Sheets
Range("v70:v120").Select
Selection.Find(What:="value", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Next Sheet
end sub
Furthermore to returning a 1 or a 0
I would like the function to return on which sheet name it was found.
Thank you so much for any help.
Maybe I can explain this better: I have 1 sheet with 5 words spaced horizontally: Value Dollar Cash Euro Dollar
The workbook has 20 sheets lets say whose names are on the left of the sheet vertically
I want the function to cycle through each sheet and search in a range for each one of those words and if they appear to put in a 1 below the word if they occur on a sheet.
Bookmarks