Opslaan op stick met variabele drive letter

[TonyLa]

Beste Help mij-ers,
Ik heb een Excel programma gemaakt als scorebord bij het biljarten.
De uitslagen worden samengevat in een tabblad-werkblad dat ik printversie noem.
Ik maak in de macro een copie van dat tabblad “Printversie” en verplaats dit in een nieuwe map zodat ik enkel die printversie als bestand kan opslaan, en niet de hele werkmap van het scorebord.
Deze nieuwe werkmap sla ik op onder de naam in cel B20, met als locatie de drive letter van de USB stick.
Echter, de drive letter kan wijzigen als ik op een andere pc werk, of iemand anders zijn stick gebruikt. Nu is de vraag of in de bijgevoegde macro er een oplossing bestaat om de drive letter van de stick op te vragen, en de werkmap op te slaan in die opgevraagde drive letter.
Hier onder de macro waarin ik de werkmap opsla in drive” V”.

Sub Uitslag_Opslaan()
'
' Uitslag_Opslaan Macro
'
    Application.ScreenUpdating = False
'
    Sheets("Printversie").Select
        Sheets("Printversie").Copy
        Range("A1:AB51").Select
    
    Selection.Copy
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
              
    Range("B1:AB51").Select
        Selection.Copy
        Range("A1").Select
     
         
    ActiveWorkbook.SaveCopyAs "V:" & Range("B20") & (".xlsx")
    
    ActiveWorkbook.Close Savechanges:=False
    
    Windows("Scorebord.xlsm").Activate
    
    Sheets("Voorblad").Select
    
End Sub

 

[snb]

Wat dacht je van:

- het verwijderen van select
- het verwijderen van activate
- het gebruik van code tags
- het gebuik van thisworkbook.path

om je moyenne torenhoog te verbeteren.