Is the ListBox embedeed in a worksheet or added to a userform ? And how are you populating the Listbox ?
Do you have any code ?
added to a userform.
Sub Submit()
Dim Sh As Worksheet
Dim iRow As Long
Set Sh = ThisWorkbook.Sheets("Database")
If frmForm.txtRowNumber.Value = "" Then
iRow = [Counta(Database!A:A)] + 1
Else
iRow = frmForm.txtRowNumber.Value
End If
With Sh
.Cells(iRow, 1) = "=Row()-1" 'Dynamic Serial Number
.Cells(iRow, 2) = frmForm.txtMaterialID.Value
.Cells(iRow, 3) = IIf(frmForm.optLarge.Value = True, "Large", "Small")
.Cells(iRow, 4) = frmForm.cmbValve.Value
.Cells(iRow, 5) = IIf(frmForm.CheckYes.Value = True, "Yes", "No")
.Cells(iRow, 6) = frmForm.txtintfineflow.Value
.Cells(iRow, 7) = frmForm.txtintcoarseflow.Value
.Cells(iRow, 8) = frmForm.txtFineFlow.Value
.Cells(iRow, 9) = frmForm.txtCoarseFLow.Value
.Cells(iRow, 10) = user
.Cells(iRow, 11) = [Text(Now(), "MM-DD-YYYY HH:MM:SS")]
.Cells(iRow, 12) = frmForm.txtComments.Value
End sub
Private Sub UserForm_Activate()
End Sub
Private Sub UserForm_Initialize()
Call Reset
End Sub
Private Sub lstDatabase_AfterUpdate()
End Sub
Private Sub lstDatabase_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
End Sub
Private Sub lstDatabase_Change()
End Sub
Private Sub lstDatabase_Click()
End Sub