Define named lookups

[ZilliQuister]

I want to add 3 lookups Named "Styles" , "Patterns" and "Widths" on two other sheets in my workbook. I'm not sure how to do this in Planmaker and it's not in the manual. Can this be done? I commented out the 13-15 lines below. I run it as a VBScript to create the file.

-Mike

'Create Planmaker.vbs

'----------------------------------------------------------------------------------
Dim pm
Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = True
pm.Application.Activate 'Make the Application the active one.
pm.Workbooks.Add ' Add a document to the collection of open documents
pm.Activeworkbook.Sheets(1).Name ="Retired"
pm.Activeworkbook.Sheets.Add("Styles")
pm.Activeworkbook.Sheets.Add("Patterns")
pm.Activeworkbook.Sheets(1).Name = "Retired"
pm.ActiveSheet.Rows(10).Font.Name = "Courier New"
'Define Names for lookup tables.
'pm.ActiveWorkbook.Name.Add "patterns", "=Patterns!$A$1:$b$150"
'pm.ActiveWorkbook.Name.Add "Styles", "=Styles!$A$1:$H$100"
'pm.ActiveWorkbook.Name.Add "Widths", "=Styles!$B$2:$B$101"

pm.Activeworkbook.Sheets(3).Name = "Patterns"
pm.Cells(1,1).Value = "121"
pm.Cells(1,2).Value = "Christmas Cheer"
pm.Cells(2,1).Value = "131"
pm.Cells(2,2).Value = "Spooky"
pm.Activeworkbook.Sheets(2).Name = "Styles"
pm.Cells(1,1).Value = "35"
pm.Cells(1,2).Value = "1/2"
pm.Cells(1,3).Value = "10-16 belts"
pm.Cells(1,4).Value = "QTY_2"
pm.Cells(1,5).Value = "Paxar636"
pm.Cells(1,6).Value = "Monarch Tag"
pm.Cells(1,7).Value = "1"

pm.ActiveWorkbook.SaveAs "CreatePlanmaker.xlsx", 0,2
'----------------------------------------------------------------

[sven-l]

I've referred your question to the developers.

[sven-l]

According to our developers:

pm.ActiveWorkbook.Sheets("Patterns").Range("A1:B150").Name = "patterns"