In diesem Beispiel wird der verwendete Bereich in Sheet1 ausgewählt.
Worksheets("Sheet1").Activate ActiveSheet.UsedRange.Select