I'm trying to use the "Find" WorksheetFunction to hide all rows that d
not contain a predefined string (Initials) in column C. I keep gettin
the error:

Run-time error '1004':
Unable to get the Find property of the WorksheetFunction class

In Excel, this function returns #VALUE if the string you are lookin
for is not found, but in VBA I am encountering this error whether th
string is (or should be) found or not.

Dim FindVal as Double
Dim Initials as String
Dim N as Variant
Dim CellRef as Variant

For N = 5 to 300

CellRef = "C" & N
Initials = "GW" 'this is passed from another procedure

On Error Resume Next
FindVal = WorksheetFunction.Find(Initials, CellRef)
If Err.Number = 1004 Then
Worksheets("name").Rows(N).Hidden = True
End if

Next

--
Message posted from http://www.ExcelForum.com

Can you not use Range.Find instead?

Jeff

"Frank Kabel" wrote in message
...
Hi
FIND is not supported within VBA. Use the InStr method insetad (see VBA
help for about this method)

--
Regards
Frank Kabel
Frankfurt, Germany


I'm trying to use the "Find" WorksheetFunction to hide all rows that
do not contain a predefined string (Initials) in column C. I keep
getting the error:

Run-time error '1004':
Unable to get the Find property of the WorksheetFunction class

In Excel, this function returns #VALUE if the string you are looking
for is not found, but in VBA I am encountering this error whether the
string is (or should be) found or not.

Dim FindVal as Double
Dim Initials as String
Dim N as Variant
Dim CellRef as Variant

For N = 5 to 300

CellRef = "C" & N
Initials = "GW" 'this is passed from another procedure

On Error Resume Next
FindVal = WorksheetFunction.Find(Initials, CellRef)
If Err.Number = 1004 Then
Worksheets("name").Rows(N).Hidden = True
End if

Next N


---
Message posted from http://www.ExcelForum.com/