Hi SamT

I have put this code together, in the workbook_open module of the Scheduled book. It opens the Login book, copies the range, but does not do the pasting...the code is:
Dim wb As Workbook
      Application.ScreenUpdating = False
    Set wb = Workbooks.Open("H:\Schedule\Login.xlsx", ReadOnly:=False)
    Range("A1:A5").Copy
    
    Dim ws1 As Worksheet
      
    Set ws1 = Sheets("Sheet1")
    With ws1.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
    .Resize(5, 1).Value = ws1.Range("A1:A5").Value
        wb.Save
       wb.Close False
    Set wb = Nothing
    Application.ScreenUpdating = True
End With
Please if you don't mind, help me with this..thank you kindly