tring
Dim sI As String
Dim sDefault As String
   If (grdThis.Columns &gt; 0) Then
      For iCol = 1 To grdThis.Columns
         sKey = sKey &amp; grdThis.ColumnKey(iCol) &amp; ","
      Next iCol
      sKey = left$(sKey, Len(sKey) - 1)
      sI = InputBox$("Enter column to delete" &amp; vbCrLf &amp; vbCrLf &amp; "Available
       columns: " &amp; sKey, , grdThis.ColumnKey(1))
      If (sI &lt;&gt; "") Then
         grdThis.RemoveColumn sI
      End If
   Else
      MsgBox "No columns to delete.", vbInforma