Smitty's baby..

[Zack Barresse]

Campbell Murphy Smith at her finest in the morning!!

Pictures posted thanks to Smitty! She's a beaut.!!

[Jacob Hilderbrand]

Too Cute :)

[shades]

Ah what pics! If only we could keep that age for a while! :)

[Smitty]

Thanks guys!

She's a lot of fun and not even 7 weeks old yet!

In the meantime, thinking about kids (and the fact that our local schools are about to start up again...) reminded me of something that Jacob posted @ MrExcel a while back. I thought I'd recreate it for schnzits & giggles...

Call the code from a Workbook_Open event...


Sub Blackboard()
Dim c As Object
Dim x As String
Dim y As Long

Cells.Delete

y = 1

MsgBox _
"Remember when you were bad in school" _
& vbCrLf & _
"and the Teacher punished you by making" _
& vbCrLf & _
"you write your transgression(s) on the blackboard?" _
& vbCrLf & vbCrLf & _
"Well thanks to technology it's now just a bit faster", vbOKOnly + vbQuestion, _
"The Modern Blackboard Punisher"

x = InputBox("Please enter the Transgression" _
& vbCrLf & vbCrLf & _
"I.E. I Will Not...", "Transgression")

y = InputBox("Please enter the number of times repentance must be made", "Repentance")

For Each c In Range("A1:A" & y)
c = "I will not " & x
y = y + 1
Next c

Columns("A:A").EntireColumn.AutoFit

With Columns("A:A").Font
.Name = "Tahoma"
.Size = 14
.Bold = True
End With
End Sub

Thanks again for the kind words! I'll keep sending Anne & Zack pictures.

Take care,

Smitty

[jamescol]

She's just TOO CUTE Smitty!