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
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