Application.WorksheetFunction.find

mikezcg · #1 (**permalink**) 09-20-05, 15:54

I am trying to find a char in a cell using :

Sub findReplace()
Dim sfind As String
Dim sreplace As String
Dim i As Integer
Dim d As Double
sfind = ActiveCell.Value

d = Application.WorksheetFunction.Find(Range(ActiveCel l.Address), ".")
sfind = Trim(Right(ActiveCell.Value, d))
sfind = InputBox("Search on ", , sfind)

End Sub

I keep getting runtime error 1004
unable to get the find property of the worksheetfunction class

DavidCoutts · #2 (**permalink**) 09-21-05, 09:02

Try using the instr/instrrev function in place of the worksheet function.

I think this is the sort of thing you are trying to do.

Code:

Sub FindInCell()
    Dim sFind As String
    Dim iFind As Integer
    
    sFind = ActiveCell.Value
    iFind = InStrRev(sFind, ".")
    
    sFind = Trim(Right(sFind, iFind + 1))
    
    MsgBox sFind
    
End Sub

All the best
Dave

Internet Services

Web Development

Digital Marketing

Consumer Tech