Macro copy data to not open workbook

[ste33uka]

I use the following macro to copy data from an open workbook to a workbook called "stored", sheet "data" if D1 value is "yes"
Is it possible to copy data without workbook "stored" being open ?

Sub copy_to_dataworkbook()
   Dim i As Long
   For i = 1 To 60
      With Sheets(CStr(i))
         If LCase(.Range("D1").Value) = "yes" Then
          .Range("Vs86:WH105").Copy
            Workbooks("stored").Sheets("data").Range("cu" & Rows.Count).End(xlUp).Offset(2).PasteSpecial xlPasteValues
         End If
      End With
   Next i
End Sub

 

[ste33uka]

You are welcome. Please see my last post that includes some error code for you. Dave

Thanks alot , seen post

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome. Be safe. Dave