[Flashgordon61]

Καλησπέρα σε όλους

Έχω ένα αρχείο Excel απο το οποίο αντιγράφω δεδομένα και τα επικολλώ σε ένα άλλο αρχείο που είναι αποθηκευμένο σε ένα άλλο δίσκο (S).
Αυτοματοποίησα την διαδικασία γράφοντας τον παρακάτω κώδικα:

Sub Insert()
Rows("8:8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
ChDir "S:\test"
    Workbooks.Open Filename:= _
        "S:\test\test1.xls"
    Windows("test1.xls").Activate
Dim FirstBlankCell As Range
Set FirstBlankCell = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
FirstBlankCell.Activate
ActiveSheet.Paste
FirstBlankCell.Select
ThisWorkbook.Activate
ActiveWorkbook.Save
Windows("test1.xls").Activate
ActiveWorkbook.Save
Application.Quit
End Sub

Ο κώδικας λειτουργεί καλά εκτός από 2 περιπτώσεις.
1) Όταν το αρχείο ("test1.xls") είναι ανοικτό μου βγάζει
Run-time error '1004':
Paste method of Worksheet class failed
2) Όταν δεν έχω πρόσβαση στον δίσκο (S) (Δίσκος Δικτύου) μου βγάζει
Run-time error '76':
Path not found
Το ζητούμενο είναι η σύνταξη του κώδικα έτσι ώστε στην πρώτη περίπτωση να έχουμε
ένα MsgBox που να λέει (Κλείστε το αρχείο "test1.xls")
και στη δεύτερη να λέει (είστε εκτός δικτύου)

Ευχαριστώ εκ των προτέρων

Γιώργος