_< investigating the programing for 'combined cells' _<

Example: (refer to help43.zip)
www.geocities.com/remember_it/help43.zip

'help43a.xls' and 'help43b.xls' contain similar vba.

Firstly,
(help43a.xls)
--enter "XS" into "size" in sheets("main")
--press "Find"
!err msg:「沒有設定物件變數或
With 區塊變數」
On running,
------------------------------------------------
Sub find()
....
"define rng = .AutoFilter.Range
Set rng = Sheets(sSheet(i)).AutoFilter.Range
....
End Sub
------------------------------------------------
'help43b.xls' is ok but NOT 'help43a.xls',
how come? (question 1)

The problem MAY arise from this:........s[1]
- help43a: names("size").RefersToRange = main!$E$6:$F$6;
- help43b: names("size").RefersToRange = main!$E$6
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Secondly,
(help43a.xls)
--enter "XS" into "size" in sheets("main")
--'View'/'Intermediate Windows (ctrl + G)
--enter '?range("size").Text'
--press 'enter'
!outcome:'Null'

Why is the outcome 'Null' but not 'XL' ('XL' is entered into
range("size") !!) ? (question 2)

This problem MAY also arise from s[1].