从列表框中选择一个项目并插入工作表（Excel VBA）

Question

跟着我的上一个问题，导致我的下一个问题。我有一个3x列表框，当用户从每个列表框中选择任何值时，用户将按“插入”，它将从列表框中插入值。

Listbox1包含2个列。
Listbox2包含4x列。
Listbox3包含1x列。

我终于设法建立了一个有效的代码来接受所有选定的值。但是，我正在努力使其成为条件。即仅当用户从全部三个中选择一个时，此功能才有效。如果用户选择2倍或3倍，或者选择1倍或不选择，则应该失败并提示用户。

代码：

For i = 0 To ListBox1.ListCount - 1
    If Me.ListBox1.Selected(i) Then
        With Worksheets("Sheet1")
            .Range("B" & LastRow + 1) = Me.ListBox1.List(i, 0)
            .Range("C" & LastRow + 1) = Me.ListBox1.List(i, 1)
        End With

    End If

    If Me.ListBox2.Selected(i) Then
        With Worksheets("Sheet1")
            .Range("F" & LastRow + 1) = Me.ListBox2.List(i, 1)
            .Range("G" & LastRow + 1) = Me.ListBox2.List(i, 2)
            .Range("H" & LastRow + 1) = Me.ListBox2.List(i, 3)
        End With

    End If

        If Me.ListBox3.Selected(i) Then
        With Worksheets("Sheet1")
            .Range("I" & LastRow + 1) = Me.ListBox3.List(i, 0)

        End With

    End If

    Next i

你们能告诉我如何进行吗？

欢呼

编辑

所有列表框都设置为每个列表框仅允许1x选择。用户不能在每个列表框中做出多项选择。