Hi!
I tried the code you give me and it gives the same wrong message. If I
create a table in Word and merge the cells, all works good. If I create a
table in Excel and copy it to Word, it still work if I set "RTF:=False". When
I set "RTF:=True", Word is unable to count how many cells are in a merged
row. The problem is easy to reproduce as shown below. One thing is very
strange. If you click F5 to execute the programmation below, the msgbox shown
(Row 2 has 3 Cells). If you go step by step, the msgbox shown (Row 2 has 2
Cells)

Create an empty Word file and Excel file. Merge cells A2 and B2 in excel.
Then, use the programmation below in Word (using Excel Object Library).
   Sub Test()
   Dim i As Integer
   Dim appWord As Word.Application
   Dim appExcel As Excel.Application
   Dim docWord As Word.Document
   Dim wbExcel As Excel.Workbook
   Dim rngExcel As Excel.Range
   Dim pathExcel As String

   Set appWord = Word.Application
   Set docWord = appWord.ActiveDocument
   Set appExcel = GetObject(, "Excel.Application")
   Set wbExcel = appExcel.ActiveWorkbook
   Set rngExcel = wbExcel.Application.ActiveSheet.Range("A1:C3")
   rngExcel.Copy
   Selection.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False,
RTF:=True
   With ActiveDocument.Tables(1)
   For i = 1 To .Rows.Count
       On Error Resume Next
       .Cell(i, 1).Select
       Selection.SelectRow
       MsgBox "Row " & i & " has " & Selection.Cells.Count & " Cells"
   Next
   End With
   End Sub

Hi Tony,

The behaviour here is just an extension of (3), with all the cells on the
rows spanned by the merged cells being counted each time.

Greg Maxey has some code that may be useful at:
http://gregmaxey.mvps.org/Table_Cell_Data.htm

Cheers