I figured out my own problem. I had to format it this way:
Sorry if I waisted anyone's time. Thanks!
So here is the corrected code:
Code:Sub FindSmLgnmAdr() Dim lgnm As Integer Dim lrng As Range Dim ladr As String Dim lcol As Integer Dim smnm As Integer Dim srng As Range Dim sadr As String Dim scol As Integer Dim colnm As Integer 'Unmerge cells for copying Range("E1:G2").Select With Selection .MergeCells = False End With 'Finds number of days in month and copies data range lgnm = WorksheetFunction.Max(Range("3:3").Value) smnm = WorksheetFunction.Min(Range("3:3").Value) Set lrng = Range("3:3").Find(lgnm) Set srng = Range("3:3").Find(smnm) sadr = srng.Address scol = Range(srng.Address).Column ladr = lrng.Address lcol = Range(lrng.Address).Column Range(Columns(scol), Columns(lcol)).Select Range("E1:G2").Select With Selection .MergeCells = True End With MsgBox smnm & " = " & sadr & " = " & scol & vbNewLine & _ lgnm & " = " & ladr & " = " & lcol End Sub