Looking for a few good Macros

[IOlIlOlIlOlOI]

Does anyone have some useful Actuarial Excel macros? I have a few, e.g. fill triangle with formula, update last diagonal, etc. I was interested in knowing if anyone else has other that are helpful.

Thanks.

[the mole]

I just wrote one to comply with a Calvinball rule Ultimate Anyone? invoked. It won't have much ongoing value.

[MathGuy]

I use macros mainly for the geek-high:

Sub Macro3()
Cells.Select
Selection.ColumnWidth = 2
ActiveWindow.ScrollColumn = 1
Rows("1:256").Select
Selection.Interior.ColorIndex = 0
ActiveWindow.Zoom = True
ActiveWindow.DisplayGridlines = False
[a1].Select
z = 50
For i = 1 To 256
For j = 1 To 256
a = (i / 256) * 4 - 2
b = (j / 256) * 4 - 2
c = a
d = b
e = 0
For n = 0 To z
If (c ^ 2 + d ^ 2) > 4 Then
e = e + 1
n = z + 1
Else
e = e + 1
c = c ^ 2 - d ^ 2 + a
d = 2 * c * d + b
End If
Next n
[a1].Offset(j - 1, i - 1).Interior.ColorIndex = e
Next j
Next i
End Sub

[Obi-Wan Kenobi]

Fractals are soooooooooo 1980's :roll:

:P

[MathGuy]

Perhaps, but every time I run that macro, it makes me feel happy.

[Obi-Wan Kenobi]

Can't argue with that.

[Brad Gile]

Option Explicit

Public Sub Disappear()
Dim Z As Double

Z = Timer
'DEATH!!
Application.Visible = False

MsgBox "BYE-BYE!"

Do Until Timer > Z + 10
'NOTHING AT ALL!
Loop

'RESURRECTION!
Application.Visible = True

MsgBox "SCARED YA, HUH?"

End Sub
:D

Brad

[TwistedMentat]

Truly evil, Brad. I like it!

[Huki]

I used a macro to post this message.