هل هذا الكود صحيح

السلام عليكم

الرجاء من الاخوان الاطلاع على الكود وابدى التوجيه

[sub a()

Dim r As Range

Set r = Worksheets("sheet1").Range("a1:i87").Copy

Dim fs, S, a

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("c:\" & "temp.txt", True)

a.writeline r

a.Close

Dim x

x = Shell("notepad.exe c:\temp.txt", 1)

End Sub

]