I've posted on this before and got some great help from jfournier on it.

jfournier provided the below that works great for emails that are in HTML format, but I still can't get anything to work for rich text or plain text. I'm still trying and trying....

Thanks again jfournier.

Function GetSelectedTextOnActiveWindow() AsString
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Case "Inspector" GetSelectedTextOnActiveWindow = ActiveInspector.HTMLEditor.Selection.createRange.Text
Case Else
End Select
On Error Goto 0
End Function