Listbox columns dont alter when i set the width advice please

[ipbr21054]

Here is the code for a Listbox.
I wish to be able to move the row number over so i can then see all the text to its left.
I have altered the row witdh 100 values but i see no movement in the columns for which i supply a screenshot.

Do you see an error which is not allowing me to do this ?

Thanks

Private Sub FindInfo_Click()
  Dim r As Range, f As Range, Cell As String, added As Boolean
  Dim sh As Worksheet
 
  Set sh = Sheets("POSTAGE")
  sh.Select
  With ListBoxFind
    .Clear
    .ColumnCount = 2
    .ColumnWidths = "100;100" ' HERE
    If TextBoxSearchColumnD.Value = "" Then Exit Sub
    Set r = Range("D9", Range("D" & Rows.count).End(xlUp))
    Set f = r.Find(TextBoxSearchColumnD.Value, LookIn:=xlValues, LookAt:=xlPart)
    If Not f Is Nothing Then
      Cell = f.Address
      Do
        added = False
        For i = 0 To .ListCount - 1
          Select Case StrComp(.List(i), f.Value, vbTextCompare)
            Case 0, 1
              .AddItem f.Value, i
              .List(i, 1) = f.Row
              added = True
              Exit For
          End Select
        Next
           If added = False Then
          .AddItem f.Value
          .List(.ListCount - 1, 1) = f.Row
        End If
        Set f = r.FindNext(f)
      Loop While Not f Is Nothing And f.Address <> Cell
      TextBoxSearchColumnD = UCase(TextBoxSearchColumnD)
      .TopIndex = 0
      Else
      MsgBox "NO ITEM WAS FOUND USING THAT INFORMATION", vbCritical, "POSTAGE SHEET ITEM SEARCH"
      TextBoxSearchColumnD.Value = ""

    End If
  End With
  Me.ListBoxReplace.List = Me.ListBoxFind.List
End Sub

 

[NoSparks]

maybe

    .ColumnWidths = "150;50" ' HERE

 

[ipbr21054]

Actually this does nothing at all

  With ListBoxFind
    .Clear
    .ColumnCount = 3
    .ColumnWidths = "150;150;150"
  End With

If i right click listbox & make alterations to column width there etc it works.

I like to use code to do it as most of the time i will forget about going to the properties box as mentioned

 

[NoSparks]

I've downloaded your workbook before.
With over 50 user forms are you sure you're working with the right one ?
Your first code has 2 columns, now you have 3.

 

[ipbr21054]

Im working as i go so maybe column 2 to 3 will happen.
Need to work with file at present otherwise old code.

 

[Jack George]

I still can't catch what you are trying to do, after reading your question carefully a second time.

Is it that you try to make all the text in a column fully visible?

 

[Skyybot]

Have you tried?

With ListBoxFind
    .Clear
    .ColumnCount = 3
    .ColumnWidths = "150;150;150"
    .Repaint
  End With