Sub ImBored ()

Dim Bored As Worksheet
Dim Work As Worksheet
Set Oinfo = Sheets("Entertainment")


If work <> Oinfo Then

Msg Box "I'm Bored"

Elf If work = Oinfo Then

Msg Box "It's a miracle"

End If

End Sub


I've spent the past week looking at crap like this... My eyes are starting to pop out of my head!!! I bet you can imagine!!


ps... This macro should work. It should pop up a msg box that says: "I'm bored!" LOL.