Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

if it can't be found end sub

Posted on 2014-03-19
2
Medium Priority
?
212 Views
Last Modified: 2014-03-19
I am using the below code to find text. What I need is to say if the word[s] cannot be found End Sub. Can an expert provide me with the additional code that will do this please.

Rows("1:" & Cells.Find("Open and Closed").Row - 1).Delete

Thanks
0
Comment
Question by:Jagwarman
2 Comments
 
LVL 81

Accepted Solution

by:
zorvek (Kevin Jones) earned 2000 total points
ID: 39939004
Dim FoundCell As Range
Set FoundCell = Cells.Find("Open and Closed")
If FoundCell Is Nothing Then Exit Sub
Rows("1:" & FoundCell.Row - 1).Delete

Kevin
0
 

Author Closing Comment

by:Jagwarman
ID: 39939009
Thanks Kevin exactly what I wanted.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Do you use a spreadsheet like Microsoft's Excel?  Have you ever wanted to link out to a non excel file on your computer or network drive?  This is the way I found to do it!
If you need to forecast numbers -- typically for finance -- the Windows and Mac versions of Excel 2016 have a basket of tools to get the job done.
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.

886 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question