Force format in thisworkbook on copy/paste?

[lordterrin]

Is there any code I can put into a workbook so that anytime someone PASTES something into the sheet it formats that paste a certain way?

I have text that is going to be copied into a company workbook from a bunch of different sources manually, and I'd like for it to look nice. I know I can create a little button on the page that will execute code to do this, like:

lastRow = Range("B" & Rows.Count).End(xlUp).Row
Range("A2:D" & lastRow).Select
With Selection.Font
 .Name = "Segoe UI"
 .Size = "10"
 .etc etc.....
End With

I'd like to something similar automatically on paste. Is this possible?

Thanks!