I have an Excel workbook that runs macros but I much prefer Calc and would like to run it on that. I am a complete novice at this as formulae are my limitations, I would like to know if :

1. Can this be converted and run on Calc

2. Would someone give me a little help in doing the conversion. (I feel this would take longer than I have left on this Earth) or

3. Would someone please convert it.

I would be so grateful for any advice given, please find my VBA scripts below

- Code: Select all Expand viewCollapse view
`Sub NextQote2()`

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Range("B1").Value = ws.Range("B1") + 1

ws.Range("A22,B6,D1,D2,D3,F20,F25,G24,G25,H25,I24,I25,I27,J20, J25,J27,K20,K21,L25").ClearContents

Next

End Sub

Sub SaveQoteWithNewName()

Dim NewFN As Variant

' Copy Quote to a new workbook

ActiveSheet.Copy

NewFN = "iclouddrive/desktop/quotes/Quote" & Range("B1").Value & ".xlsx"

ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook

ActiveWorkbook.Close

NextQote2

End Sub