help with macro
Hi Jhyatt,
I think that the only Lookin parameters are xlValues, xlFormulas and
xlComments.
Just as an added extra it is recommended that you set all the
arguments/parameters for find because they are saved from the previous find
even if it was done in the interactive mode.
Regards,
OssieMac
"jhyatt" wrote:
i found this code and am trying to adjust for my needs but it keeps stopping
at the indicated line.
Sub test()
Call AddName("Pear")
End Sub
Public Sub AddName(ByVal Fruit As String)
Dim wks As Worksheet
Dim rngToSearch As Range
Dim rngFound As Range
Dim rngFoundAll As Range
Dim strFirstAddress As String
Set wks = ActiveSheet
Set rngToSearch = wks.Columns("A")
stops here
Set rngFound = rngToSearch.Find(What:=Fruit, _
LookIn:=xlConstants, _
LookAt:=xlPart)
If Not rngFound Is Nothing Then
Set rngFoundAll = rngFound
strFirstAddress = rngFound.Address
Do
Set rngFoundAll = Union(rngFound, rngFoundAll)
Set rngFound = rngToSearch.FindNext(rngFound)
Loop Until rngFound.Address = strFirstAddress
ThisWorkbook.Names.Add Fruit, rngFoundAll.Address
End If
End Sub
|