Option Explicit Sub selectallrows() Worksheets("Sheet1").Activate ActiveSheet.UsedRange.Select End Sub