Try this, yo need to be sure the correct file is in the code & the correct sheet
Option Explicit
Dim Rw As Long
Private Sub cmdEnter_Click()
Dim oWb As Workbook
Dim frmSht As Worksheet
Rw = Me.ListBox1.ListIndex + 2
Set oWb = Workbooks.Open("C:\Documents and Settings\.........\Order Forms, Invoices\AddressBook.v.1.xls")
Set frmSht = oWb.Sheet1 '<- you need to make sure this is the correct sheet
With frmSht
'Goes to cell . .G5 G6 G7 I7 K7 D3 I3 B11 B12 B14 B15
.Range("g5").Value = Sheet2.Cells(Rw, 1).Value
.Range("g6").Value = Sheet2.Cells(Rw, 2).Value
.Range("g7").Value = Sheet2.Cells(Rw, 3).Value
.Range("i7").Value = Sheet2.Cells(Rw, 4).Value
.Range("k7").Value = Sheet2.Cells(Rw, 5).Value
.Range("d3").Value = Sheet2.Cells(Rw, 6).Value
.Range("i3").Value = Sheet2.Cells(Rw, 7).Value
.Range("b11").Value = Sheet2.Cells(Rw, 8).Value
.Range("b12").Value = Sheet2.Cells(Rw, 9).Value
.Range("b14").Value = Sheet2.Cells(Rw, 10).Value
.Range("b15").Value = Sheet2.Cells(Rw, 11).Value
End With
End Sub
Bookmarks