Vote for Nobody

Creative Match Pictures

Luv is all around

Humans aren't the only animals that fall in love... 

Best Movie Quotes

"The greatest trick the Devil ever pulled was convincing the world he didn't exist" - Verbal - The Usual Suspects

"I'll be back!" - Arnold Schwarzenegger as the terminator - The Terminator.

"My mother always said, life was like a box of chocolates, you never know what you're gonna get" - Tom Hanks as Forrest Gump -Forrest Gump.

"You talkin' to me? You talkin' to me? You talkin' to me? Then who the hell else are you talkin' to? You talkin' to me? Well, I'm the only one here. Who the fuck do you think you're talking to? Oh, yeah? Ok?" - Robert DeNiro as Travis Bickle - Taxi Driver.

"You can't handle the truth." - Jack Nicholson as Col. Nathan R. Jessep - A Few Good Men.

"Here's Looking at you, kid" - Humphrey Bogart as Rick Blaine - Casablanca.

"You're gonna need a bigger boat" - Roy Scheider as Police Chief Martin Brody in Jaws.

"The rain in Spain stays mainly in the plain" - - Professor Henry Higgins - My Fair Lady. 

"May the force be with you" - Harrison Ford as Han Solo - Star Wars.

"Good Morning Viet Nam!" - Robin Williams as A2C Adrian Cronauer -Good Morning, Viet Nam.

"I'll make him an offer he can't refuse - Al Pacino as Michael Corleone - The Godfather

"Merry Christmas, Bedford Falls" - James Stewart as George Bailey - It's a Wonderful Life

"If you build it, he will come" - Voice from above - Field of Dreams

"Go ahead...make my day!" - Clint Eastwood as Harry Callahan - Sudden Impact.

"I know what you're thinking. "Did he fire six shots or only five? Well, to tell you the truth, in all this excitement I kind of lost track myself. But being as this is a .44 Magnum, the most powerful handgun in the world, and would blow your head clean off, you've got to ask yourself a question: Do I feel lucky? Well, do ya, punk?" - Clint Eastwood as Harry Callahan - Dirty Harry.

"E.T. phone home" - E.T - E.T. the Extraterrestrial

"Show me the money" - Cuba Gooding, Jr. as Rod Tidwell - Jerry Maguire


"A census taker once tried to test me. I ate his liver with some fava beans and a nice chianti" - Anthony Hopkins as Hannibal Lecter - The Silence of the Lambs

"My precious" - Andy Serkis as Gollum - Lord of the Rings: The Two Towers

"The first rule of Fight Club is - you do not talk about Fight Club. The second rule of Fight Club is - you DO NOT talk about Fight Club." - Brad Pitt as Tyler Durden - Fight Club

"When I'm good, I'm very, very good, but when I'm bad, I'm better" Mae West as Tira - I'm No Angel

"Say hello to my Little Friend" Al Pacino as Tony Montana - Scarface

"What Knockers" Gene Wilder as Dr. Frederick Frankenstein - Young Frankenstein

"I'm the king of the world" by Leonardo DiCaprio as Jack Dawson in Titanic.

"I'm one stomach flu away from reaching my goal weight." by Emily Blunt as Emily in The Devil Wears Prada.

"Yeah, it's a cure-all. My buddy Jonah broke his elbow one time. He just smoked some weed. It still clicks, but it's cool." by Seth Rogen as Ben Stone in Knocked Up.

"The horror, the horror" Marlon Brando as Col. Kurtz in Apocalypse Now.

Code to Delete Blank Rows and Columns in Excel

Just copy and paste below code in excel vba new module and then save to delete blank rows and columns in any given highlighted area.

Option Explicit 

Sub DeleteBlankRows()

    Dim Rw As Long, RwCnt As Long, Rng As Range   

    Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual    

On Error Goto Exits:    

    If Selection.Rows.Count > 1 Then

        Set Rng = Selection

    Else

        Set Rng = Range(Rows(1), Rows(ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row()))

    End If

    RwCnt = 0

    For Rw = Rng.Rows.Count To 1 Step -1

        If Application.WorksheetFunction.CountA(Rng.Rows(Rw).EntireRow) = 0 Then

            Rng.Rows(Rw).EntireRow.Delete

            RwCnt = RwCnt + 1

        End If

    Next Rw    

Exits:

    Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic    

End Sub 

Sub DeleteBlankColumns()

    Dim Col As Long, ColCnt As Long, Rng As Range

        Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual

    

On Error Goto Exits:    

    If Selection.Columns.Count > 1 Then

        Set Rng = Selection

    Else

        Set Rng = Range(Columns(1), Columns(ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column()))

    End If

    ColCnt = 0

    For Col = Rng.Columns.Count To 1 Step -1

        If Application.WorksheetFunction.CountA(Rng.Columns(Col).EntireColumn) = 0 Then

            Rng.Columns(Col).EntireColumn.Delete

            ColCnt = ColCnt + 1

        End If

    Next Col

    Exits:

    Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic

    End Sub

Cyristal Clear Ice

www.instructables.com has a number of simple but quite interesting solution to our little problems.

I didn't know that making a cyristal clear ice cubes tales 1- using purified water 2-boilng and cooling the water and again boiling cooling (double boiling eliminates dissolved air in the water and decomposes minerals in the water ! dissolved air + minerals +dust)

Euro vs USD Rate

How long more USD will lose vs Euro? Today's intrest rate cut by the US Fed will surely boost the US exports and rate against other cırrencies. Signals to buy dollars.