Hi All, I have a workbook with a Home sheet and a sheet for each month. I am attempting to create a macro that will look for a PO number that the user supplies. It will need to continue looking through all the sheets/months until it finds it. I can transverse the sheets (thanks to post 63749), but I am having trouble performing error-trapping. If I don’t find the value in the first sheet, what can I do to … well, go on to the next sheet? Does this make sense?
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
Error trapping with Find Command (Excel 2000)
Home » Forums » AskWoody support » Productivity software by function » MS Excel and spreadsheet help » Error trapping with Find Command (Excel 2000)
- This topic has 3 replies, 3 voices, and was last updated 21 years, 3 months ago.
AuthorTopicWScatoothaker
AskWoody LoungerOctober 12, 2001 at 5:30 pm #361479Viewing 1 reply threadAuthorReplies-
WSWassim
AskWoody LoungerOctober 12, 2001 at 6:05 pm #546462Yes Cat It makes perfect sense.
Do you know how to use a Do Loop?
OK here is an example:
Sub LookThroughAllSheets()
Dim WSheet As Variant ‘/A Worksheet Object for For-Each loops
Dim lErrNum As Long ‘/Holds the Error Number.
Dim sWSName As String ‘/Holds the Worksheet name.On Error Resume Next ‘/Starts Error Handling.
For Each WSheet In ThisWorkbook.Worksheets ‘/Loop each worksheet.
With WSheet.Column(“A”) ‘/Data is in Column A for example.
lErrNum = 0 ‘/Set Inital value
Err.Clear ‘/Clear the Error Code.
.Find What:=”123″ ‘/Do the Find
lErrNum = Err ‘/Grab the Error Code
End IfIf lErrNum = 0 Then ‘/It found it.
sWSName = WSheet.Name ‘/Grab the name of the worksheet.
Exit For ‘/Stop Looping.
End If
Next WSheet ‘/Loop each worksheet.
On Error GoTo 0 ‘/Reset the Error handler.
End SubThis was not tested, so I may have made a mistake, but you can see how error handling is done.
Wassim
-
WSJohnBF
AskWoody LoungerMarch 13, 2004 at 4:55 pm #546477Not extensively tested.
Sub FindWhat()
Dim shtActive As Worksheet
Dim shtSheet As Worksheet
Dim str2Find As String
Set shtActive = ActiveSheet
str2Find = InputBox(“Find What?”)
For Each shtSheet In ThisWorkbook.Worksheets
shtSheet.Activate
On Error Resume Next
shtSheet.Cells.Find(What:=str2Find, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
If Err = 0 Then
Err.Clear
Exit For
End If
Next shtSheet
If Err Then
MsgBox str2Find & ” Not found”, vbExclamation
shtActive.Activate
End If
End SubSee also Jan Karel’s FlexFind code at BMS Excel MVP page
Edited Mar 13th 2004 to update link
-
WScatoothaker
AskWoody Lounger
-
Viewing 1 reply thread -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Lost sound after the upgrade to 24H2?
by
Susan Bradley
6 minutes ago -
How to move 10GB of data in C:\ProgramData\Package Cache ?
by
Alex5723
1 hour, 1 minute ago -
Plugged in 24-7
by
CWBillow
8 hours, 22 minutes ago -
Netflix, Apple, BofA websites hijacked with fake help-desk numbers
by
Nibbled To Death By Ducks
13 hours, 14 minutes ago -
Have Copilot there but not taking over the screen in Word
by
CWBillow
10 hours, 23 minutes ago -
Windows 11 blocks Chrome 137.0.7151.68, 137.0.7151.69
by
Alex5723
2 days, 4 hours ago -
Are Macs immune?
by
Susan Bradley
2 hours, 26 minutes ago -
HP Envy and the Function keys
by
CWBillow
1 day, 12 hours ago -
Microsoft : Removal of unwanted drivers from Windows Update
by
Alex5723
2 days, 15 hours ago -
MacOS 26 beta 1 dropped support for Firewire 400/800
by
Alex5723
2 days, 15 hours ago -
Unable to update to version 22h2
by
04om
9 minutes ago -
Windows 11 Insider Preview Build 26100.4482 (24H2) released to Release Preview
by
joep517
2 days, 23 hours ago -
Windows 11 Insider Preview build 27881 released to Canary
by
joep517
2 days, 23 hours ago -
Very Quarrelsome Taskbar!
by
CWBillow
2 days, 9 hours ago -
Move OneNote Notebook OFF OneDrive and make it local
by
CWBillow
3 days, 12 hours ago -
Microsoft 365 to block file access via legacy auth protocols by default
by
Alex5723
3 days, 1 hour ago -
Is your battery draining?
by
Susan Bradley
46 minutes ago -
The 16-billion-record data breach that no one’s ever heard of
by
Alex5723
47 minutes ago -
Weasel Words Rule Too Many Data Breach Notifications
by
Nibbled To Death By Ducks
3 days, 16 hours ago -
Windows Command Prompt and Powershell will not open as Administrator
by
Gordski
1 day, 2 hours ago -
Intel Management Engine (Intel ME) Security Issue
by
PL1
3 days ago -
Old Geek Forced to Update. Buy a Win 11 PC? Yikes! How do I cope?
by
RonE22
2 days, 17 hours ago -
National scam day
by
Susan Bradley
1 day, 23 hours ago -
macOS Tahoe 26 the end of the road for Intel Macs, OCLP, Hackintosh
by
Alex5723
2 days, 20 hours ago -
Cyberattack on some Washington Post journalists’ email accounts
by
Bob99
4 days, 17 hours ago -
Tools to support internet discussions
by
Kathy Stevens
3 days, 6 hours ago -
How get Group Policy to allow specific Driver to download?
by
Tex265
4 days, 8 hours ago -
AI is good sometimes
by
Susan Bradley
5 days ago -
Mozilla quietly tests Perplexity AI as a New Firefox Search Option
by
Alex5723
4 days, 14 hours ago -
Perplexity Pro free for 12 mos for Samsung Galaxy phones
by
Patricia Grace
6 days ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.