Wrong Code

Hi all
Sub WriteTable(SheetName As String, Details As FormDetail)

Dim DBTableLocation As Object, LastCell As Range

Worksheets(SheetName).Activate

' Find the last cell in a column
LastCell = Range("A65536").End(xlUp).Select

With LastCell
.FormulaR1C1 = Details.AccountNumber
.Offset(0, 1).FormulaR1C1 = Details.Bucket
.Offset(0, 2).FormulaR1C1 = Details.Claimable
.Offset(0, 3).FormulaR1C1 = Details.CollectAmount
.Offset(0, 4).FormulaR1C1 = Details.PushBack
.Offset(0, 5).FormulaR1C1 = Details.SV_Code
.Offset(0, 6).FormulaR1C1 = Details.SV_Name
End With

End Sub

When I run the code.. I get LastCell object not set. What's wrong with the code??

[Barrie Davidson]

On 2002-03-05 19:10, Anonymous wrote:
Hi all
Sub WriteTable(SheetName As String, Details As FormDetail)

Dim DBTableLocation As Object, LastCell As Range

Worksheets(SheetName).Activate

' Find the last cell in a column
LastCell = Range("A65536").End(xlUp).Select

With LastCell
.FormulaR1C1 = Details.AccountNumber
.Offset(0, 1).FormulaR1C1 = Details.Bucket
.Offset(0, 2).FormulaR1C1 = Details.Claimable
.Offset(0, 3).FormulaR1C1 = Details.CollectAmount
.Offset(0, 4).FormulaR1C1 = Details.PushBack
.Offset(0, 5).FormulaR1C1 = Details.SV_Code
.Offset(0, 6).FormulaR1C1 = Details.SV_Name
End With

End Sub

When I run the code.. I get LastCell object not set. What's wrong with the code??

If I'm not mistaken, change:
' Find the last cell in a column
LastCell = Range("A65536").End(xlUp).Select

to

' Find the last cell in a column
LastCell = Range("A65536").End(xlUp)

Regards,

Hi Barrie,
Tried that, doesn't seem to work... when I am in break mode.. it says LastCell = nothing

Set LastCell = Range("A65536").End(xlUp)

[Barrie Davidson]

On 2002-03-05 19:29, Anonymous wrote:
Set LastCell = Range("A65536").End(xlUp)

Good catch Anonymous whoever you are

Thank you.... I am an idiot!!