Attribute VB_Name = "sub_CreateNamedRanges" Option Explicit
Sub CreateNames() 'see end of file for information under ProcedureFooter Dim wb As Workbook, ws As Worksheet Dim Lrow As Long, lcol As Long, i As Long Dim myName As String, Start As String
' set the row number where headings are held as a constant