I was fortunate to get help on the listbox code but need to direct the selection to a different workbook than the one that contains the listbox. I'm not good enough to see what I'm doing wrong. Played around with different combos of selecting the workbook but can't get it to work. Thanks for the help. Amazing knowledge in this group.

Option Explicit
Dim Rw         As Long
Private Sub cmdEnter_Click()
Dim WS1 As Worksheet
Set WS1 = Workbook("dataform.foraddtest").Sheets("order")
    Rw = Me.ListBox1.ListIndex + 2
    With WS1
        'Goes to cell . .G5  G6  G7  I7  K7  D3  I3  B11 B12 B14 B15
        .Range("g5").Value = ActiveSheet.Cells(Rw, 1).Value
        .Range("g6").Value = ActiveSheet.Cells(Rw, 2).Value
There are several more lines of code but the issue seems to be on the workbook selection. Thank you!