Hallo Softaid,
Is het mogelijk dat je macro (opslaan) niet werkt voor Excel 2000. Je gebruikt namelijk het volgende commando:
Paste:=xlPasteValuesAndNumberFormats
Deze optie vind ik niet in mijn paste special menu. Als ik er "Paste:=xlPasteValues" van maak, dan lukt het wel.
Wat er ook handig is als je een macor gebruikt om iets op te slaan, is dat excel vraagt in welke directory je het wilt opslaan. Dan weet je tenminste waar het opgeslagen wordt. Dat kan met onderstaande instructie.
fileSaveName = Application.GetSaveAsFilename(initialfilename:=Lotto, _
fileFilter:="Excel Files (*.xls), *.xls")
Indien men Cancel zou drukken, kan je nog altijd volgende stukje toevoegen:
If fileSaveName = False Then
MsgBox "De file wordt gesaved onder de naam " & fileSaveName & ".xls in de huidige directory!"
End If
ActiveWorkbook.SaveAs FileName:=fileSaveName
Groeten,
Mikael
PS: waar is de pijl waarop je moet drukken in de Lotto sheet?
PS2: knap gedaan anders de sheet.