excel - ユーザーフォームラベルのテキストを読み取り、ワークシートに追加

Question

これは私の初めての投稿なので、フォーラムのエチケットを台無しにしてしまった場合はお知らせください。

ラベル、2 つのコンボ ボックス、およびボタンを含むユーザー フォームがあります。ラベルのテキストはサブで設定され、ゲームを説明するテキストです。このゲームを審判した 2 人の審判を 2 つのコンボ ボックスから選択するようユーザーに求めています。ボタンは「次のゲーム」ボタン。ユーザーが「次の試合」ボタンをクリックすると、2 人の審判を「審判」ワークシートの名前のリストと照合します。次に、ラベルのテキスト (どのゲームかを示す) を使用して、審判の名前に隣接する最初の空いている行に貼り付けたいと考えています。コードは、「次のゲーム」ボタンの「クリック ボタン」イベントにあります。現在、実行時エラー「1004」が発生しています。

Private Sub nextGameBtn_Click()

Dim ump1 As String
Dim ump2 As String
Dim endRow As Long
Dim ump1Row As Range
Dim ump2Row As Range
Dim ump1EndColumn As Long
Dim ump2EndColumn As Long
Dim game As String

ump1 = selectUmpsForm.ComboBox1.Value
ump2 = selectUmpsForm.ComboBox2.Value

endRow = Worksheets("Umpires").Cells(Rows.Count, 1).End(xlUp).Row


Set ump1Row = Worksheets("Umpires").Range("A2:A" & endRow).Find(What:=ump1, LookIn:=xlValues, LookAt:=xlWhole)

ump1EndColumn = Worksheets("Umpires").Range("IV" & ump1Row.Row).End(xlToLeft).Column + 1


Set ump2Row = Worksheets("Umpires").Range("A2:A" & endRow).Find(What:=ump2, LookIn:=xlValues, LookAt:=xlWhole)

ump2EndColumn = Worksheets("Umpires").Range("IV" & ump2Row.Row).End(xlToLeft).Column + 1

game = selectUmpsForm.lblGame.Caption

Worksheets("Umpires").Range(Cells(ump1Row.Row, ump1EndColumn), Cells(ump2Row.Row, ump2EndColumn)).Value = game


gameCount = gameCount + 1
Call displayBox(gameCount)

End Sub

次の行で実行時エラーが発生します。

Worksheets("Umpires").Range(Cells(ump1Row.Row, ump1EndColumn), Cells(ump2Row.Row, ump2EndColumn)).Value = game

ラベル テキストを作成したソースに戻らなくても、ラベル テキストを読むことができますか? これが実行時エラーの原因ですか?

アドバイスをいただければ幸いです。乾杯イム