Problem using "Find" WorksheetFunction in Excel VBA
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 |
Problem using "Find" WorksheetFunction in Excel VBA
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/ |
All times are GMT +1. The time now is 04:49 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com