Activate A Workbook After It Is Open

[snb]

sub M_snb()
  If Dir("\\2.44.120.20\Felixstowe\Team KH\Timeliness report week.xlsx") <>"" Then
   with Workbooks.Open("\\2.44.120.20\Felixstowe\Team KH\Timeliness report week.xlsx")
      with .sheets("Shipment Timeliness").usedrange.columns(6)
           .AutoFilter 1, "<" & GetDateRangeFrom, xlOr, ">" & GetDateRangeTo
           .Offset(1).SpecialCells(12).EntireRow.Delete
           .autofilter
       end with
    End With
  end if
End With