ApplyNames Method Example
This example applies names to the entire sheet.
Cells.ApplyNames Names:=Array("Sales", "Profits")