Excel Tutorials

Sub SheetMerger() Dim objCol As Collection Dim Sht As Worksheet Dim newSht As Worksheet Dim Rng As Range Dim PT As Range Dim theName As Name     On Error Resume Next     Application.DisplayAlerts = False     For Each theName In ThisWorkbook.Names         theName.Delete     Next     Worksheets("AllData").Delete     Application.DisplayAlerts = True     On Error GoTo 0     Set objCol = New Collection     For Each Sht In ThisWorkbook.Worksheets         For Each Rng In Sht.Range(Sht.[a1], Sht.[a1].End(xlToRight))             On Error Resume Next                 If Rng <> "" Then objCol.Add Rng, CStr(Rng.Value)             On Error GoTo 0         Next     Next     Set newSht = Worksheets.Add     newSht.Name = "AllData"     Set PT = newSht.Range("a1")     For Each Rng In objCol             PT.Value = Rng.Value             ThisWorkbook.Names.Add Name:="_" & VBA.Replace(PT.Value, " ", "_"), RefersTo:=PT.EntireColum

There are months missing because obviously Elise, like myself, does not attend a year round school. January January 1 New Year's Day, Betsy Ross's birthday (1752), Paul Revere's birthday(1735) January 3 J.R.R. Tolkien's birthday (1892), Festival of Sleep Day January 4 Louis Braille's birthday (1809), Jakob Grimm's birthday (1785), Trivia Day January 5 National Bird Day January 6 Bean Day, Sherlocke Holmes' birthday January 7 Moons of Jupiter discovered by Galileo 1610 January 8 Elvis Presley's birthday (1935) January 10 First Meeting of United Nations in London 1946 January 11 National Thank-You Day, Milk Day (milk delivered in bottles forthe first time in 1878 January 12 First Xray machine made - 1896 January 13 Poetry Day, Make Your Dreams Come True Day, Rubber Duckie's birthday January 14 National Dress Up Your Pet Day January 15 Martin Luther King's birthday (1929) January 17 Benjam