Zoom And Freeze Pane Not Working With (With) Statement

In the below code I am trying to Freeze the panes on "B3" and Zoom out of the page to 90%. I keep getting errors on these two lines and I believe I am not coding these lines properly. (Errors are occurring in the "With" statement with all the PasteSpecials)

Code:

Sub Export()
Dim LastRow As Long
Dim TabString1 As Variant
Dim TabString2 As Variant
Set NewBook = Workbooks.Add'    With NewBook'     

[Code] ...........