Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub Create_RangeNames() 'Creates range names based on header row information Dim wbk As Workbook Dim sht As Worksheet Dim rng, rng2 As Range Dim cl As Object Dim c As Long Dim strAddr As Variant Dim strShName, strHdrName, strCol As String Set wbk = ActiveWorkbook For Each sht In wbk.Sheets c = sht.Cells.SpecialCells(xlLastCell).Column Set rng = sht.Range("A1", sht.Range("A1").Offset(0, c)) For Each cl In rng If cl.Value <> "" Then strShName = Replace(sht.Name, " ", "_", 1) strHdrName = Replace(cl.Value, " ", "_", 1) strAddr = Split(cl.Address, "$") strCol = "$" & strAddr(1) & ":$" & strAddr(1) Set rng2 = sht.Range(cl, cl.End(xlDown)) ActiveWorkbook.Names.Add Name:=strShName & strHdrName, _ RefersTo:="=OFFSET('" & sht.Name & "'!" & cl.Address & ",0,0,COUNTA('" & _ sht.Name & "'!" & strCol & "),1)" End If Next cl Next sht End Sub