This script is what I have but I cannot figure out why when I try to set Width I get a error code:
Run Time Error 438
Object doesn't support this property or method.
Everything works if I remove .Width
Which is what your wanting.
Private Sub CommandButton1_Click()
'Modified 1/29/2019 1:02:41 PM EST
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For Each OLEobj In ActiveSheet.OLEObjects
If OLEobj.progID = "Forms.ListBox.1" Then
.Font.Size = 24
.List = Range("A1:A" & Lastrow).Value
.BackColor = vbGreen
.ForeColor = vbRed
.Width = 200