I am basically trying to copy a range of data from one workbook to about 3
other. I have already written code that allows me to find the data according
to the date I entered and then paste it into another worksheet, my code can
be seen below:


Option Explicit

Private Sub CommandButton1_Click()
Dim rng1 As Range
Dim rngFound As Range


With Worksheets("Index")
Set rng1 = .Range("A1:A" & .Range("A65536").End(xlDown).Row)
End With
Set rngFound = rng1.Find(what:=DateValue(Me.TextBox1.Value))
Range(rngFound, rngFound.Offset(1, 8)).Copy
Worksheets("Sheet2").Range("A1")
Set rngFound = Nothing
Unload Me
End
End Sub

But instead of copying from one worksheet to another, I want it to copy from
one workbook to multiple workbooks according to the date I entered within the
UserForm, any help will be appreciated thank you.