Using ActiveWorkbook.Names.Add Name:=

  • Thread starter Thread starter Stuart
  • Start date Start date
S

Stuart

NG help kindly gave me the following, as a means of 'tagging' a workbook:

ActiveWorkbook.Names.Add Name:="Tag", RefersTo:="Type1", Visible:=False

How can I use this, please?

Say I need to differentiate between 3 types of workbook. How do I apply
type1, type2, type3 (using say, Tag1, Tag2, Tag3) to the workbooks?

As an example, if the value "£" were to be found in Col 5, then it's a type1
workbook, so give the workbook the private name of "Tag1". The user
must not see this name, nor therefore be able to change it.

As I understand it, at a later date, I should be able to check the workbook
when it is opened, and if it's a "Tag1" workbook, then do code suitable
for that type of workbook.

Can a solution be found for both Excel 2000 and '97 users, please?

Regards.
 
You would use Tag and assign it a value of Type1, Type2 or Type3.

But if you can determine what type it is by looking in column 5, then why
not look in column 5.

In any event,
you would use the code shown to set create the name in each workbook,
changing the "Type1" to the appropriate value.

Then to check the value of Tag

sType = Application.Evaluate(thisWorkbook.Names("Tag").RefersTo)

Select Case sType
Case "Type1"

Case "Type2"

Case "Type3"

End Select
 
Many thanks for that.

Regards.

Tom Ogilvy said:
You would use Tag and assign it a value of Type1, Type2 or Type3.

But if you can determine what type it is by looking in column 5, then why
not look in column 5.

In any event,
you would use the code shown to set create the name in each workbook,
changing the "Type1" to the appropriate value.

Then to check the value of Tag

sType = Application.Evaluate(thisWorkbook.Names("Tag").RefersTo)

Select Case sType
Case "Type1"

Case "Type2"

Case "Type3"

End Select
Click to expand...
 
Back
Top