title: open a workbook from network drive and paste the data in existing workbook
body: <p>I have two workbook. WB1, is my active workbook from network folder itself, and WB2 is the workbook that is already available in the network drive. </p>
  
  <p>I wanted to open WB2, copy all the contents and paste In WB1 and close WB2 without saving. </p>
  
  <p>Additionally, I am trying to delete in column 8 of WB1 all those that does not contain "TRU". </p>
  
  <p>I tried the below code , But I am not sure how I could specify the get to open for my Network drive.</p>
  
  <p>here is my code.</p>
  
  <pre><code>Sub newWB()
  Dim WB1 As workbook
  Dim WB2 As workbook
  Dim i As Long, j As Long
  Dim totalrows As Long
  Dim PasteToStart As Range
  Dim FileToOpen
  Dim sheet As Worksheet
  
  Set WB1 = ActiveWorkbook
  Set PasteToStart = [Sheet1!A1]
  
  FileToOpen = Application.GetOpenFilename("file://cw.wan.com/root/Loc/PL/04/Projektlist.xlsx")
  
  If FileToOpen = False Then
  MsgBox ("no File Found")
  Exit Sub
  
  Else
  
  Set WB2 = Workbooks.Open(Filename:=FileToOpen)
  
  For Each sheet In WB2.Sheets
  
  With sheet.UsedRange
  .Copy PasteToStart
  Set PasteToStart = PasteToStart.Offset(.Rows.Count)
  End With
  Next sheet
  End If
  
  With ActiveWorkbook.Sheets("Sheet1")
      totalrows = .Cells(.Rows.Count, "A").End(xlUp).Row
      For i = totalrows To 2 Step -1
          If .Cells(i, 8).Value &lt;&gt; "TRU" Then
          Cells(i, 8).EntireRow.Delete
          End If
  Next
  End With
  
  WB2.Close
  End Sub
  </code></pre>