exclusive macros

[Fan924]

Can a macro be made so that it will only work in the workbook it
belongs to?

 

[Office_Novice]

You Could Try somthing like...

Function IsWorkbook() As Boolean
IsWorkbook = ActiveWorkbook.Name = ("Book2")
End Function

Sub Test()
If IsWorkbook = True Then
MsgBox "Your Macro Here"
Else
MsgBox "Sorry no Macro for you"
End If
End Sub

 

[Fan924]

Thanks, I will try this.

 

[Fan924]

Function IsWorkbook() As Boolean

IsWorkbook = ActiveWorkbook.Name = ("Book2")
End Function

Sub Test()
If IsWorkbook = True Then
MsgBox "Your Macro Here"
Else
MsgBox "Sorry no Macro for you"
End If
End Sub

I could not get this to work, Thanks to Chip Pearson's timely post, I
made a few changes to it and it worked.

If ThisWorkbook.FullName = ActiveWorkbook.FullName Then
MsgBox "Your Macro Here"
Else
MsgBox "Sorry no Macro for you"
End If