Wprowadzenie arkusza excel jako zmiennej VB-Excel

'przykład kopiowania
Dim szit As Worksheet

Set szit = ThisWorkbook.Worksheets("Arkusz1")
szit.Range("A1").Copy
Set szit = Nothing
Set szit = ThisWorkbook.Worksheets("Arkusz2")
szit.Range("B1").PasteSpecial

'zniszcz zmienną obiektową
Set szit = Nothing

End Sub