All - automatically highlight content on focus

Sub  SelectAll()
'Put this in the GotFocus event of a textbox
Me .ActiveControl.SelStart = 0
Me .ActiveControl.SelLength = Len( Me .ActiveControl.Text)
End Sub