Имя области печати после определения с поиском

Question

Я бы хотел определить область печати по специальному имени, чтобы использовать ее позже, например With PrintVersion.Range("NewPrint")....Как я могу дать ему имя после настройки с помощью VBA?

Часть из моего кода:

Dim PrintVersion As Worksheet

Set PrintVersion = ThisWorkbook.Worksheets("Print version")

PrintVersion.PageSetup.PrintArea = PrintVersion.Range("A1:C" & _
PrintVersion.[LOOKUP(2,1/(C1:C250<>""),ROW(C1:C250))]).Address

Я пробовал вот так, но, похоже, не работает:

Dim PrintVersion As Worksheet

Set PrintVersion = ThisWorkbook.Worksheets("Print version")

PrintVersion.PageSetup.PrintArea = PrintVersion.Range("A1:C" & _
PrintVersion.[LOOKUP(2,1/(C1:C250<>""),ROW(C1:C250))]).Address

PrintVersion.PageSetup.PrintArea = "NewPrint"