Error 91

GVBGVB · April 3rd, 2008, 11:01 AM

Question: Executing the following code, I get the error 91:

Sub Test
Z = "D" & Cells.Find(What:="Total").Row
End Sub

sektor · April 4th, 2008, 12:31 AM

What is the aim of this code?

Shasur · April 4th, 2008, 12:56 AM

The error comes when there is no 'Total' in the sheet or range

You can avoid that by using the following

Sub Test()
    Set rFnd = Cells.Find(What:="Total")
    If Not rFnd Is Nothing Then
        z = rFnd.Row
    End If
End Sub

Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)