Range resize help

[Dr.Evil925]

I have a range in vba defined as "FoundCell" it consists of a single cell, lets say J1. How can I resize it? I need it to be J1:J20.

Dim FoundCell As Range
Dim FoundName As Range
Application.ScreenUpdating = False
   With Worksheets("Account DB")
       With .Rows(1)
        Set FoundCell = .Find(what:=cbCust.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=faulse)
            With FoundCell.EntireColumn
                Set FoundName = .Find(what:=cbName.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=faulse)
                If FoundName Is Nothing Then
                    If Not IsEmpty(FoundCell.Offset(1)) Then
                    FoundCell.End(xlDown).Offset(1).Value = cbName.Value
                    Else
                    FoundCell.Offset(1).Value = cbName.Value
                    End If
                MsgBox "Added " & cbName.Value & "!"
                       FoundCell.resize(20, 0).Select
                Else
                MsgBox cbName.Value & " already exists"
                End If
            End With
        End With
    End With

Help!

 

[jim may]

Try:

FoundCell.resize(20, 1).Select

 

[Dr.Evil925]

Tryed, I got an error. "Select method of Range class failed" Error # 1004

 

[jim may]

What's this?

Set FoundCell = .Find(what:=cbCust.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=faulse)
With FoundCell.EntireColumn
Set FoundName = .Find(what:=cbName.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=faulse)

 

[Dr.Evil925]

I have those in there to first find what column to use, and second find if the current name is already in the database.
cbCust, and cbName are combo box's in a userform.

 

[Leith Ross]

Hello DrEvil925,

The arguments of the Resize statement are RowSize and ColumnSize. You can not specify zero for either of these. You can however, leave it blank. Here are some examples:

FoundCell.resize(20, 1).Select

FoundCell.resize(20,).Select

FoundCell.resize(RowSize:=20).Select

Sincerely,
Leith Ross

</pre>