[RESOLVED] VB6 - Merge Cells in spreadsheet

[Giftx]

Good morning Westconn1,
I modified the code accordingly and got another "Run-Time error 1004 - Unable to set the RowHeight property of the range class" on the code below.

Also, please look at the spreadsheet attachment. Is there any way I can get rid of the space(gap) that separates the line of text in the "Comment" row?

Code that caused Runtime error:

.RowHeight = .RowHeight * Len(xlWksht.Range("A" & CStr(ii + 1)).text) / w
And
.RowHeight = .RowHeight * Len(xlWksht.Range("A" & ii + 1).text) / w