Remove blank lines of code

Hello everybody
I need a macro that enables me to clear the lines of code (blank of course)
I have very long code which has blank lines in between ..
I need a quick way to clear these blank lines so as to be easy to read and I can check it carefully
Doing that task manually is very boring process specially with long macros

For example:

Sub Example()


MsgBox "Hello"



Range("A1").Value = "ExcelForum"



Debug.Print "Thank you"



End Sub

would be

Sub Example()
MsgBox "Hello"
Range("A1").Value = "ExcelForum"
Debug.Print "Thank you"
End Sub