In diesem Beispiel wird die aktuelle Region in Sheet1 markiert.
Worksheets("Sheet1").Activate ActiveCell.CurrentRegion.Select
In diesem Beispiel wird vorausgesetzt, dass das erste Tabellenblatt eine Tabelle mit einer Kopfzeile enthält. Die Tabelle wird mit Ausnahme der Kopfzeile markiert, wobei sich die aktive Zelle vor dem Ausführen des Beispiels innerhalb der Tabelle befinden muss.
Set tbl = ActiveCell.CurrentRegion tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Select