Use this

Private Declare Function SendMessage Lib "user32" Alias _
"SendMessag eA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Const LVM_FIRST = &H1000
Public Sub LV_AutoSizeColu mn(LV As ListView, Optional Column _
As ColumnHeader = Nothing)

Dim C As ColumnHeader
If Column Is Nothing Then...