What is it that you are searching for "n" ?
You could save some time by not activating and selecting things.
Give this a try:
With Worksheets(shData)
x = .Columns("F").Find(n, , xlFormulas, xlPart, xlByRows, xlNext, False, False).Row
.Cells(x, 6) = txtCompany
.Cells(x, 2) = CDbl(txtCAN)
.Cells(x, 7) = txtContact
.Cells(x, 3) = Format(txtPhone, "[<=9999999](###) ###-####")
.Cells(x, 4) = Format(txtFax, "[<=9999999](###) ###-####")
.Cells(x, 5) = txtEmail
.Cells(x, 32) = txtNotes
.Cells(x, 23) = cbxPackage
End With
shHome.Activate
MsgBox "Done"
Application.ScreenUpdating = True
As your sheet grows it will still be slower but this should help.
Bookmarks