Calcのマクロが動作しない

1 コンボボックス1から地名を選び、

2 該当する地名の支店名をコンボボックス2に表示させたい

Selectで、その支店名一覧をコンボボックス2のリンクセルにコピーさせるというものですが、

うまく動作してくれません。

どなたか、ご教授いただければと思います。

Private Sub ComboBox1_Change()

Dim oDoc As Object, oSheet As Object

Dim aCellAddress As New com.sun.star.table.CellAddress

Dim aCellRangeAddress As New com.sun.star.table.CellRangeAddress

Dim oCell As String

oDoc = ThisComponent

oSheet = oDoc.Sheets(0)

Cell = oSheet.getCellRangeByName(“B49”)

Select Case Cell

Case “東京”

With aCellAddress

.Sheet = 0

.Column = 6

.Row = 30

End With

With aCellRangeAddress

.Sheet = 0

.StartColumn = 1

.EndColumn = 1

.StartRow = 100

.EndRow = 114

End With

oSheet.copyRange( aCellAddress, aCellRangeAddress )

…………
Case Else

With aCellAddress

.Sheet = 0

.Column = 6

.Row = 30

End With

With aCellRangeAddress

.Sheet = 0

.StartColumn = 5

.EndColumn = 5

.StartRow = 100

.EndRow = 114

End With

oSheet.copyRange( aCellAddress, aCellRangeAddress )

End Select

End Sub

自己レスです。

Select文の直前の

Cell = oSheet.getCellRangeByName(“B49”)

という部分で、文字列であることを定義していなかったためのエラーでした。

Cell = oSheet.getCellRangeByName(“B49”) .String

とすれば、ちゃんと動作しました。

解決してよかったです。解決済のマークしておきますね。