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.
Sub NameColumn(iCol As Integer)
Range(Cells(1, iCol), _
Cells(Cells(Cells.Rows.Count, iCol).End(xlUp).Row, iCol)).CreateNames _
Top:=True, Left:=False, Bottom:=False, Right:=False
End Sub
CopyColumn 2
CopyColumn Cells(1,"B").column
Sub CopyColumn(iCol As Integer)
Range(Cells(1, iCol), _
Cells(Cells(Cells.Rows.Count, iCol).End(xlUp).Copy
End Sub