VBA function to update info based on form input

Where's the 'findvalue' function you mention?

The only 'findvalue' I can find is a variable that's used in some subs to search various columns and that's only ever being used in simple code like this.

    Set findvalue = Sheet1.Range("B:B").Find(What:=Reg2, LookIn:=xlValues).Offset(0, 2)

Have you investigated what's actually slowing things down?

PS You could cut the code in the Update sub down a bit by using a loop but that probably won't have an impact on speed.

Sub Update()
Dim findvalue As Range
Dim I As Long

    'update info in client list
    lstSearch.RowSource = ""

    'find the row to edit
    Set findvalue = Sheet1.Range("B:B").Find(What:=Reg2, LookIn:=xlValues).Offset(0, 2)

    'update the values
    findvalue = Reg4.Value

    For I = 1 To 3  
        findvalue.Offset(0,-I).Value = Me.Controls("Reg" & I).Value
    Next I

    For I = 1 To 89
        findvalue.Offset(0, I).Value = Me.Controls("Reg" & I+4).Value
    Next I

End Sub