vba code laten werken in calc

[Peter]

Hallo 

wie kan (en wil) bijgevoegde code aanpassen zo ze werkt in oo 4.1 

Option VBASupport 1 
Public Sub Opslaanvolledigbook() 

Range("r2").Value = Date 
Range("b1").Value = Range("b1").Value + 1 

Dim Test As Variant 
'kopiëren document als nieuw jachtdag 

ActiveWorkbook.Sheets.Copy 
Test = "/home/peter/Documenten/Jacht/Jachtdag " & Range("b1").Value & (" - ") & 
Format(Range("r2"), "dd mm yy ") & ("- ") & Range("d2") & ".xlsm" 

activesheet.Name = "Jachtdag " + range("B1").value 

ActiveWorkbook.SaveAs Test, FileFormat:=52 
ActiveWorkbook.Close 
'opslaan van de jachtdag op nummer en datum 

Range("e6:g12").Select 
Selection.ClearContents 
Range("e14:g17").Select 
Selection.ClearContents 
Range("e19:g23").Select 
Selection.ClearContents 
Range("k6:m20").Select 
Selection.ClearContents 
Range("r6:s20").Select 
Selection.ClearContents 
Range("c26:c29").Select 
Selection.ClearContents 
Range("d2").Select 
Selection.ClearContents 


Range("d2").Select 
ActiveWorkbook.Save 
ActiveWorkbook.Close 

End Sub 


-- 
Met vriendelijke groeten 
Peter Zaman