Ok, sorry for that late reply, I got the columns to sort!! I cant be too excited though because for some reason its not sorting how its suppose to..

Here is my code:

VB Code:
  1. '##############################################

  2.     '############## ACTIVATE ######################

  3.     '##############################################

  4.     

  5.     ' align morning grid

  6.  
  7.     With MorningGrid

  8.     

  9.         If .Rows > 0 Then

  10.                 

  11.             With MorningGrid.SortObject

  12.             

  13.                 .Clear

  14.                 .SortColumn(1) = 2

  15.                 .SortColumn(2) = 3

  16.                 .SortColumn(3) = 1

  17.                 .SortOrder(1) = CCLOrderAscending

  18.                 .SortOrder(2) = CCLOrderAscending

  19.                 .SortOrder(3) = CCLOrderAscending

  20.                 .SortType(1) = CCLSortNumeric

  21.                 .SortType(2) = CCLSortString

  22.                 .SortType(3) = CCLSortDateMinuteAccuracy

  23.             

  24.             End With

  25.             

  26.             .Sort

  27.             

  28.             '// Debugging Purposes //

  29.             

  30.             For i = 1 To .Rows

  31.             

  32.                 For ii = 1 To 3

  33.                 

  34.                     .SelectedRow = i

  35.                     .SelectedCol = ii

  36.                     

  37.                     Debug.Print .CellText(i, ii)

  38.                     

  39.                 Next ii

  40.             

  41.             Next i

  42.             

  43.             '// End of Debugging //

  44.             

  45.         End If

  46.         

  47.     End With

  48.  
  49.     ' align afternoon grid

  50.     

  51.     With AfternoonGrid

  52.     

  53.         If .Rows > 0 Then

  54.             

  55.             With MorningGrid.SortObject

  56.                 

  57.                 .Clear

  58.                 .SortColumn(1) = 2

  59.                 .SortColumn(2) = 3

  60.                 .SortColumn(3) = 1

  61.                 .SortOrder(1) = CCLOrderAscending

  62.                 .SortOrder(2) = CCLOrderAscending

  63.                 .SortOrder(3) = CCLOrderAscending

  64.                 .SortType(1) = CCLSortNumeric

  65.                 .SortType(2) = CCLSortString

  66.                 .SortType(3) = CCLSortDateMinuteAccuracy

  67.             

  68.             End With

  69.             

  70.             .Sort

  71.             

  72.             '// Debugging Purposes //

  73.             

  74.             For i = 1 To .Rows

  75.             

  76.                 For ii = 1 To 3

  77.                 

  78.                     .SelectedRow = i

  79.                     .SelectedCol = ii

  80.                     

  81.                     Debug.Print .CellText(i, ii)

  82.                     

  83.                 Next ii

  84.             

  85.             Next i

  86.             

  87.             '// End of Debugging //

  88.             

  89.         End If

  90.         

  91.     End With

Here is my what comes up on the debug:

This is for the Morning Grid
09:00 AM Showing / 09.00 / Showing
09:15 AM Appointment / 09.15 / Appointment
10:50 AM Appointment / 10.50 / Appointment

This is for the Afternoon Grid
12:00 PM Appointment / 12.00 / Appointment
04:00 PM Showing / 16.00 / Showing
06:00 PM Open House / 18.00 / OpenHouse
01:30 PM Appointment / 13.30?? / Appointment
06:20 PM To-Do / 18.20 / ToDo

So as you can see, something isnt right when sorting the afternoon grid. I am using the same code for the other grid and the other one works just fine. So I am stuck AGain!!
Any Suggestions??

Btw, thanx for helping me out so far!