Visual Basic App to Select Last Row

[mattpfc]

Hi all,

I need to be able to select the first blank row in my spreadsheet, however I am doing this from a VB app, and not within Excel itself.

The VB abb creates an excel workbook using this code

Public Function Create_Workbook()

    ' Start Excel and get Application object.
        Set oXL = CreateObject("Excel.Application")
        oXL.Visible = True

   ' Get a new workbook.
        Set oWB = oXL.Workbooks.Add
        Set oSheet = oWB.ActiveSheet

End Function

However in a number of different functions I wish to write to the next available row, how can I find this. I have tried this code, but with no luck

Dim oRng As Excel.Range

oRng = oSheet.Cells(Range("a65536").End(xlUp).Row + 1, 1).Select

Thanks in advance

 

[tusharm]

What does "with no luck" mean? You get a compile error? Run time error? Something else?

In any case, one thing stands out. Range, like Cells, is a property of a worksheet object. However, you are using it without any qualification.

 

[garyxprice]

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select