Hi all:
I have this bit of code for adding a Row alphabetically into a Contacts sheet. Works great.
Sub InsertCompany()Dim sNewName As String
Dim lPosition As Long
Dim rEmpList As Range
Set rEmpList = Range("D1:D1000")
sNewName = InputBox("Enter Name of Company for added Contact")
On...