Macro uitvoeren bij specifieke bestandsnaam

[jolly01]

Sub Macro1()
'
' Macro1 Macro
' 
'

'
    Range("F4:G79").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("I4:J79").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("L4:M79").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

Bovenstaande code copieërt de 3 bereiken en plakt vervolgens als waarde.
Nou wil ik een controle invoeren zodat de macro alleen wordt uitgevoerd als de naam van het bestand waarin het wordt uitgevoerd "Week.xls" heeft.
Dus als het bestand de naam "Week.xls" heeft de code gewoon uitvoeren en als de bestandsnaam afwijkt de code niet uitvoeren en een waarschuwingsvenster met de text :"bestandsnaam heeft niet de naam Week!"

Iemand een idee welke code moet worden toegevoegd?

 

[edmoor]

Als eerste in je macro:

If Thisworkbook.Name <> "Week" Then
    Msgbox "bestandsnaam heeft niet de naam Week!"
    Exit Sub
End If

 

[jolly01]

Bedankt voor je oplossing Edmoor! De macro werkt met onderstaande toevoeging

"Week.[COLOR="#FF0000"]xls[/COLOR]"

 

[edmoor]

Ok, dat is dan een verschilletje tussen jouw Office 2003 en mijn 2010

 

[jolly01]

Misschien ben ik wat conservatief met 2003 maar wat ik tot nu toe heb gezien boven 2003 lijkt net alsof ik opnieuw moet leren fietsen.:d

 

[edmoor]

Daar kan ik me wat bij voorstellen. Maar ik heb te maken met klant met Office 2000, 2003, 2007 en 2010.
Office 2014 zijn we aan het testen.
Ik heb dus geen andere keus dan opstappen en rijden maar

 

[edmoor]

Al gaat het dan misschien ook weleens zo:
http://bcove.me/clle86rz

 

[jolly01]

Dat houdt iig je geest open. Er komt een dag ik ook mee zal rijden.

 

[jolly01]

Hij is hoe dan ook doelgericht ingesteld

 

[edmoor]

Het zijn leer momentjes