For i=1 to Browser("Data Dictionary List").Page("Data Dictionary List_2").WebTable("POMList").RowCount
For j=1 to Browser("Data Dictionary List").Page("Data Dictionary List_2").WebTable("POMList").ColumnCount(i)
data=Browser("Data Dictionary List").Page("Data Dictionary List_2").WebTable("POMList").GetCellData (i,j)
data=i & j & ":" & data
msgbox data
Next
Next