Hi everybody,

I have two (2) questions.

1.
Can you copy a range within one "With" statement and paste it in another "With" statement immediately following the first? I've tried and "CutCopyMode" seems to turn off when the first "With" statement is ended.

2.
The following code was originally written to run outside a "With" statement. I have placed it in a "With" statement but I know the syntax is wrong on several lines. Can anybody give me the correct syntax?

With Workbooks("ONLINE.xls").Worksheets("System Export")
    ' Select cell A4 and PasteSpecial values.
    ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False  ' Cancel Cut or Copy mode.
    ' Resize the current selection to remove the header row from the data sort.
    Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1, Selection.Columns.Count).Select
    ' Sort the slected range by txtSurname then txtFirstName.
    Selection.Sort Key1:=ActiveCell.Offset(0, 4), Order1:=xlAscending, Key2:=ActiveCell.Offset(0, 5), Order2:=xlAscending
End With