Here is a bit of my code
Private Sub UserForm_Initialize()
Me.Height = 90
cmdOK.TabIndex = 3
txtAmt.SelStart = 0
txtAmt.SelLength = Len(txtAmt.value)
txtAmt.SetFocus
aRow = ActiveCell.Row
aCol = ActiveCell.Column
amtpaid = Cells(aRow, aCol + 1)
recno = Cells(aRow, aCol - 5) 'ID#
recloc = recno + 2 'record location 2 rows more than rec. number
txtAmt.Text = amtpaid
Label1.Caption = "Enter Amount Paid:"
If amtpaid = "STOCK" Then
Me.Height = 135
Label1.Caption = "Dividend:"
cmdOK.TabIndex = 6
Flag = "STOCK"
'Stop
Exit Sub
End If
However this still leaves the curser to the right of the default entry
Bookmarks