Another Drinking Holiday

Sub HappyStPatsDay()
 
    Dim OTheMorning As Shape
    Dim TwoYou As Double
 
    OTheMorning.Top = TwoYou
   
End Sub

Update: John wants one that runs without error and I’m happy to oblige.

Sub HappyStPatsDay()
 
    Dim OTheMorning As Shape
    Dim TwoYou As Double
       
    On Error Resume Next
   
    OTheMorning.Top = TwoYou
   
End Sub

6 Comments

  1. Obviously, you’ve been starting early. ‘Run-time Error 91′

    Please post a version that works!

  2. Doug Glancy says:

    Brilliant solution!

  3. Thanks, Dick. Now it works perfectly.

  4. Billkamm says:

    lol Dick that gave me a laugh to start my day. Thanks.

  5. Tim says:

    Doesn’t do anything here – is it just a joke in code or is it meant to actually work with a shape in a spreadsheet?

Leave a Reply