select.find ERROR

[cirugio]

Hoping someone can assist. I currently have a module with a procedure which contains a Selection.Find command. I just use it to look up a value ("e-mail") and then replace contents of cells to the right of it using the offset command.
For some reason, I keep getting the following error "Object variable or With block variable not set" on the
Selection.Find... line. Anyone have thoughts on this? Thanks.


Sub ClearEmail()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Columns("A:A").Select<o></o>
Range("A1").Activate<o></o>
ActiveCell.Select<o></o>
<o></o>
Selection.Find(What:="e-mail", After:=ActiveCell, LookIn:=xlFormulas, LookAt _<o></o>
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _<o></o>
False).Activate<o></o>
<o></o>
ActiveCell.Offset(0, 7) = "------------"<o></o>
ActiveCell.Offset(0, 8) = "------------"<o></o>
ActiveCell.Offset(0, 9) = "------------"<o></o>
ActiveCell.Offset(0, 10) = "------------"<o></o>
ActiveCell.Offset(0, 11) = "------------"<o></o>
<o></o>
End Sub<o></o>

 

[VoG]

Try like this

Sub ClearEmail()
Dim Found As Range
Set Found = Columns("A").Find(What:="e-mail", LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False)
If Not Found Is Nothing Then Found.Offset(, 7).Resize(, 5).Value = "------------"
End Sub

 

[Norie]

Try this, which checks if what you are looking for is found before continuing.

Option Explicit
 
Sub ClearEmail()
Dim rngFnd As Range
Dim strLook As String
 
    strLook = "email"
 
    Set rngFnd = Range("A:A").Find(strLook)
 
    If rngFnd Is Nothing Then
        MsgBox "Not found"
    Else
        rngFnd.Offset(, 7).Resize(, 5) = "-------"
    End If
 
End Sub

 

[cirugio]

That worked out beautifully. Thanks!!!!!!!