Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping through selected worksheets and delete a range (e.g., A2:D15)
I am trying to loop through the selected sheets and clear the contents
of Range("A2:D15") of all the selected sheets. When I run this code, it only clears the content of Sheet3. Thank you in advance for your assistance. ================================================== ========================= Sub ClearSheets Dim sht As Worksheet Application.ScreenUpdating = False Sheets(Array("Sheet3", "Sheet5", "Sheet6", "Sheet8")).Select For Each sht In ActiveWindow.SelectedSheets Range("A2:D15").ClearContents Next sht Application.ScreenUpdating = True End Sub ================================================== =========================== |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping through selected worksheets and delete a range (e.g., A2:D
Maybe something like this
Sub ClearSheets() Dim x As Object Sheets(Array("Sheet3", "Sheet5", "Sheet6", "Sheet8")).Select For Each x In ActiveWindow.SelectedSheets x.Range("A2:D15").ClearContents Next x End Sub " wrote: I am trying to loop through the selected sheets and clear the contents of Range("A2:D15") of all the selected sheets. When I run this code, it only clears the content of Sheet3. Thank you in advance for your assistance. ================================================== ========================= Sub ClearSheets Dim sht As Worksheet Application.ScreenUpdating = False Sheets(Array("Sheet3", "Sheet5", "Sheet6", "Sheet8")).Select For Each sht In ActiveWindow.SelectedSheets Range("A2:D15").ClearContents Next sht Application.ScreenUpdating = True End Sub ================================================== =========================== |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete rows at the same time from selected worksheets | Excel Programming | |||
Looping: Search Range in Multiple Selected Worksheets, Copy/Paste | Excel Programming | |||
Delete selected range | Excel Programming | |||
delete every nth row in selected range | Excel Discussion (Misc queries) | |||
Looping down a Range to delete entire row | Excel Programming |