Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Function WhatColumn(sHeadingName As String, _
lRowHeading As Long, iColHeadingStart As Integer) As Integer
Dim rngHeading As Range
Set rngHeading = Range(Cells(lRowHeading, iColHeadingStart), _
Cells(lRowHeading, iColHeadingStart).End(xlToRight))
For Each Heading In rngHeading
If Heading.Value = sHeadingName Then
WhatColumn = Heading.Column
Exit Function
End If
Next Heading
WhatColumn = 0
End Function
Function WhatRow(lRowHeading As Long, _
iColHeadingStart As Integer) As Long
With Cells(lRowHeading, iColHeadingStart).CurrentRegion
WhatRow = lRowHeading + .Rows.Count
End With
End Function