Example of Looping through Worksheets, Deleting Rows & Converting to CSV

This VBA is an example of that loops through selected worksheets in a workbook, deletes the top ten rows and exports it as a CSV.

Sub Test_loop()

ActiveWorkbook.Save

Dim ws As Worksheet
Dim path As String

path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)

' Loop through all selected sheets.
For Each ws In ActiveWindow.SelectedSheets

IF ws.name <> "Monday" then
ws.Rows("1:10").Delete ' Delete 10 rows at top of each sheet.
ws.Copy

Range("A1").Interior.Color = 1 ' Format A1 so the top rows are included in the used range and saved
ActiveWorkbook.SaveAs Filename:=path & "_" & ws.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges = False

End IF
Next ws

End Sub

Published by

bSuperior System Ltd Experts

We are experts in customizing Excel files and VBA programming. We create Excel files for specific needs. We develop VBA programs to automate tasks and execute processes automatically . We are based in Vancouver BC, Canada.

One thought on “Example of Looping through Worksheets, Deleting Rows & Converting to CSV”

  1. Pingback: Macros in Excel

Leave a Reply

Your email address will not be published. Required fields are marked *