Public Sub gridItemsFound_ColumnClick(ByVal lCol As Long)
Dim sTag As String
Dim i As Long
.SortColumn(1) = lCol
sTag = gridItemsFound.ColumnTag(lCol)
If (sTag = "") Then
sTag = "DESC"
.SortOrder(1) = CCLOrderAscending
sTag = ""
.SortOrder(1) = CCLOrderDescending
gridItemsFound.ColumnTag(lCol) = sTag
Select Case gridItemsFound.ColumnKey(lCol)
Case "", ""
' sort by icon:
.SortType(1) = CCLSortIcon
' sort by date:
.SortType(1) = CCLSortDate
' sort by text:
.SortType(1) = CCLSortString
UserForm1.MousePointer = fmMousePointerHourGlass
UserForm1.MousePointer = fmMousePointerDefault
Open in new window
Managing email signatures in Office 365 can be a challenging task if you don't have the right tool. CodeTwo Email Signatures for Office 365 will help you implement a unified email signature look, no matter what email client is used by users. Test it for free!
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $37.50.
Premium members get this course for $389.00.
Premium members get this course for $122.40.
Premium members get this course for $159.20.
Premium members get this course for $12.50.
Premium members get this course for $49.99.