If Find Doesn't Find Anything

[Guest_imported]

Hello

I have got this command working now thanks, but i want to insert a message when the find doesn't find anything.

I've tried a few things but got nowhere fast

Here it is

Private Sub CommandButton1_Click()
msheet = ActiveSheet.Name
Select Case msheet
Case "BoQ"
If Application.CutCopyMode = False Then
MsgBox "Please Select Subcontractor Rates To Paste!"

Else
Range("s:s&quot.Select
**** Selection.Find(What:=ComboBox1.Text).Activate ****

ActiveCell.Offset(0, -11).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Case Else
MsgBox "Please Select Bill Of Quantities To Enter Rates"
End Select
End Sub

Thankyou

Andrew

 

[rmikesmith]

guesser,

Try this:

Set Rng = Selection.Find(What:="01", After:=ActiveCell, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False)
        If Rng Is Nothing Then
          MsgBox "Your message here"
          Exit Sub
        End If
        Rng.Activate
...

where Rng is DIMensioned as Range

HTH,
M. Smith
Regards,
Mike

 

[Guest_imported]

Thanks M Smith

I'm AMAZED, I wouldn't of got that if i tried all year!

Cheers,

Andrew