Films reviews by VBA

[DiscoPistol]

Okay I admit it. I need to get out more.

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

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

 

[Norie]

That's just not going to compile.

 

[Andrew Fergus]

I think you missed something in that MsgBox line.......

 

[njimack]

You forgot

If BruceWillis.Pulse = True Then Call Sequel

 

[daniels012]

You could add...

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