Fun things for april fools

[Oorang]

Sub Auto_Open()
If Environ("Username") = "smithpa" Or Environ("Username") = "doejo" Or Environ("Username") = "jonesbi" Then
    Range("A1:M38").Activate
    Do
    For Each cell In Range("A1:M38")
    cell.Interior.ColorIndex = Int((56 * Rnd) + 1)
    Next cell
    Loop
    End If
End Sub

 

[Greg Truby]

Oorang - this should give you some ideas for next year...