Sub test() ActiveSheet.ScrollArea = "a1:F100" End Sub