Hi,

I am using VB.NET to code for Excel.
(but even if someone can suggest a solution in VB6 i would appreciate)

Following is the problem i am facing:

Starting from cell N5, i have to merge a number of cells in my excel sheet

How many cells have to be merged, can be known only at runtime.

How can i accomplish this merging?

i was using range object, but how to specify the range is where i am stuck.

if i use something like
objRange = DirectCast(objXlSheet.columns("N5:lastCOl"),Excel. Range)

how to get last column (lastCol) ???
calculation wise,It would be (N5 + someNumber calculated at runtime)

Thanks ,
Jell

Hi,

The following code is created in VB6, and you can put it wherever you want.

[code]
Dim xlApp As Excel.Application
Dim xlWrb As Excel.Workbook
'
Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp.UserControl = True
Set xlWrb = xlApp.Workbooks.Open("C:\yourdirectory\yourfile.xl s")
xlWrb.Sheets("Sheet1").Select 'alter sheet, etc to your own use
endrow = 8
endcol = 17
With xlWrb.Sheets("Sheet1")
    .Range(.Cells(5, 14), .Cells(endrow, endcol)).Select
    Selection.Merge
End With

[\code]

Hope this helps
Max

Here are several options for finding the last column.

Option 1 use special cells command...
    mylastcol = ActiveCell.SpecialCells(xlLastCell).Column
    MsgBox (mylastcol)

Option 2 use reverse column location
    mylastcol = Range("IV1").End(xlToLeft).Column
    MsgBox (mylastcol)


Option 3 use this to locate the last column that is not blank
On Error Resume Next
myFoundLastColumn = False
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.EntireColumn.Select

Do Until myFoundLastColumn = True

    Selection.Find(What:="*", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext) _
        .Activate
    If ActiveCell = False Then
        myFoundLastColumn = False
        ActiveCell.Offset(0, -1).EntireColumn.Select
    Else
        myFoundLastColumn = True
        mylastcol = ActiveCell.Column
        MsgBox (mylastcol)
    End If
Loop

i think you can add the code in like this ...
objRange = DirectCast(objXlSheet.columns("N5:" & lastCOl & "798"),Excel.Range)


cheers

Matt

Dear Matt,Max
Thanks a lot for your response. Meanwhile I was also able to figure out the way to do it.
With your response my solution got confirmed.
Thanks Again!

Jell