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 AddLine()
With ActiveCell
Set oLine = ActiveSheet.Shapes.AddLine(.Left, .Top + .Height / 2, .Left + .Width, .Top + .Height / 2)
End With
Set oLine = Nothing
End Sub