Strip Name - This function strip the first,middle, and last from one field

cell formula example:

- =Switchname(a1) ---this function will take it from "Last, First Middle" to "First Middle Last"

- =Firstname(a1) or proper(firstname(a1))

- =Middlename(a1)

- =Lastname(a1)

Public Function Firstname(instring As String) As String

'MsgBox InStr(1, instring, " "), vbOKCancel
If InStr(1, instring, " ") Then
  Firstname = Mid(instring, 1, InStr(1, instring, " "))
Else
  Firstname = instring
End If

End Function
Public Function middlename(instring As String) As String

Dim firstfound As Integer

'clear it just in case
middlename = " "

'need to see if there are 2 spaces in the string
firstfound = InStr(1, instring, " ")
If firstfound Then
  If InStr(firstfound + 1, instring, " ") Then
    middlename = Mid(instring, firstfound + 1, InStr(firstfound + 1, instring, " ") - firstfound)
  Else
    middlename = " "
  End If
End If
 
End Function

Public Function lastname(instring As String) As String

'MsgBox InStr(1, instring, " "), vbOKCancel
If InStr(1, instring, " ") Then
  lastname = Right(instring, Len(instring) - findr(instring, " "))
Else
  lastname = " "
End If
 
End Function

Public Function switchname(instring As String) As String
'this function will take a "lastname, Firstname Middlename" format and switch it "First Middle Last" without comma
  
  cPos = InStr(1, instring, ",")
  If cPos Then
    switchname = Trim(Mid(instring, cPos + 1)) & " " & Trim(Left(instring, cPos - 1))
   End If

End Function

 
Function findr(instring As String, findval As String) As Integer

Dim x As Integer
 
x = Len(instring)
'MsgBox (x)
Do Until x = 0
    If Mid(instring, x, 1) = findval Then
    findr = x
    Exit Function
    End If
    x = x - 1
Loop

End Function
Public Function SEARCHR(instring As String) As Integer
   
   Dim yBytes() As Byte
   Dim i As Integer
   
   yBytes = StrConv(instring, vbFromUnicode)
   i = Len(instring) - 1
   
   Do While i <> 0
      If Chr(yBytes(i)) = " " Then
         SEARCHR = i + 1
         Exit Function
      Else
        i = i - 1
      End If
   Loop
End Function

combine columns - VB code (change the columns throughout the code) this example takes A thru J and puts them in K

Public Sub CombineColumns()
    Dim SH As Worksheet
    Dim rng As Range
    Dim srcRng As Range
    Dim destRng As Range
    Dim col As Range
    Dim LastRow As Long
    Dim iColour As Long                           'NEW VARIABLE

    Set SH = ActiveSheet
    Set rng = SH.Range("A:J")

    With SH
        iColour = .Cells(1, "K").Interior.ColorIndex   ''NEW CODE LINE
        .Columns("K:K").ClearContents
        For Each col In rng.Columns
            LastRow = .Cells(Rows.Count, col.Column).End(xlUp).Row
            Set srcRng = col.Cells(1).Resize(LastRow)
            Set destRng = .Cells(Rows.Count, "K").End(xlUp)(2)
            srcRng.Copy Destination:=destRng
        Next col

        On Error Resume Next
        Range("K:K").SpecialCells(xlBlanks).Delete Shift:=xlUp
        On Error GoTo 0

       'NEW CODE LINE
       Intersect(.Range("K:K"), .UsedRange).Interior.ColorIndex = iColour

    End With

End Sub