combobox - 別のワークシートの範囲

Question

別のワークシートからラベルの配列 (範囲) を含むコンボボックスを読み込もうとしています。Cells メソッドの代わりに範囲内で "A4:PB4" を使用すると機能します。なぜこれが機能しないのかわかりません。

Private Sub ComboBox1_GotFocus()

 Dim myArray As Variant
 lastcol = Worksheets("data").Range("A4").End(xlToRight).Column
 myArray = WorksheetFunction.Transpose(Worksheets("data").Range(Cells(4, 1), Cells(4, lastcol)))
 With Me.ComboBox1
  .List = myArray
 End With

End Sub