Vervang "Columns" door "Rows" voor rijen in plaats van kolommen
Code: Selecteer alles
Sub VerwijderKolom()
Dim Doc As Object
Dim Sheet As Object
Dim NewColumn As Object
Doc = ThisComponent
Sheet = Doc.Sheets(0)
'Sheet.Columns.insertByIndex(3, 1) --> voor invoegen van een kolom D (index begint bij 0 voor A)
Sheet.Columns.removeByIndex(5, 1)
End Sub