Why does this codes copies the sheet but not assigning to a variable?

[Shafty]

Dim Datasheet as WorkSheet
Set DataSheet = xlbook.Sheets(1).Copy(After:=ValidationBook.Sheets(ValidationBook.Sheets.Count))

Otherwise, How to do it? Obviously in the most shortest way possible. Thanks in advance.

 

[Kaper]

IMHO the result of

xlbook.Sheets(1).Copy(After:=ValidationBook.Sheets(ValidationBook.Sheets.Count))

is not an object so you cannot assign it to DataSheet variable.


Try:

xlbook.Sheets(1).Copy After:=ValidationBook.Sheets(ValidationBook.Sheets.Count)
Set DataSheet = ValidationBook.Sheets(ValidationBook.Sheets.Count) 'a copy is a new last sheet