Films reviews by VBA

DiscoPistol

Active Member
Joined
Jun 6, 2006
Messages
261
Okay I admit it. I need to get out more.

However please feel free to add your own efforts if you wish......

Code:
Sub DieHard()
Dim BruceWillis As Legend
Dim RandomCop As Assistant
Dim Badguys As MsoCharacterSet
Dim ChiefBadguy As MsoControlType
Dim Hotel As Scenario
Dim Wife As Date
Dim Demands As Currency


Set Badguys = 50

Set ChiefBadguy.Language = "German"

If Badguys Then GoTo Hotel
BruceWillis = "In Trouble"

If RandomCop.AssistWithHelp Then
BruceWillis.Position = Top
End If

For Each Badguys In Hotel
If BruceWillis > Badguys Then
Badguys = Badguys - 1
Next Badguys

If Wife.Hidden Then
ChiefBadguy.Demands = BruceWillis.Clear.Hotel
End If

BruceWillis.Visible = True
BruceWillis.Delete.ChiefBadguy
MsgBox "yippee kay eh . . . . . ."


End Sub

:eek:
 

Some videos you may like

Excel Facts

How can you automate Excel?
Press Alt+F11 from Windows Excel to open the Visual Basic for Applications (VBA) editor.

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,219
Office Version
  1. 365
Platform
  1. Windows
That's just not going to compile.:)
 

njimack

Well-known Member
Joined
Jun 17, 2005
Messages
7,764
You forgot
Code:
If BruceWillis.Pulse = True Then Call Sequel
 

daniels012

Well-known Member
Joined
Jan 13, 2005
Messages
5,219
You could add...
Code:
With .BombDropped(xlCellTypeElevator)
                .Locked = False
            Range("A6").Value = "20th floor"
            Range("A7").Value = "19th floor"
            Range("A8").Value = "18th floor"
            Range("A9").Value = "17th floor"
            Range("A10").Value = "16th floor"
End With   'Loud Explotion
 

Watch MrExcel Video

Forum statistics

Threads
1,122,952
Messages
5,599,033
Members
414,275
Latest member
Pungie

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top