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.
Dim r As Integer
Dim s() As String
r = 2
Do While Range("A" & r).Value <> ""
s = Split(Range("A" & r).Value, " ")
Range("B" & r).Value = s(UBound(s))
r = r + 1
Loop
Function LastWord(s As String) As String
dim a
a = Split(s, " ")
LastWord = a(UBound(a))
End Function