<code>Sub empRecListDisplay()
Dim empMasterList As Worksheet
Dim last_rowMasterlist As Long
Set empMasterList = ThisWorkbook.Sheets("EMPLOYEE MASTERLIST")
last_rowMasterlist = empMasterList.Cells(Rows.count, 2).End(xlUp).Row
With mainForm.EmpRecListBox
.ColumnHeads = True
.ColumnCount = 9
.ColumnWidths = "100,350,100,100,100,100,100,100,100"
.RowSource = empMasterList.Range("B1:K1").Address
End With
End Sub
</code>
<code>Sub empRecListDisplay()
Dim empMasterList As Worksheet
Dim last_rowMasterlist As Long
Set empMasterList = ThisWorkbook.Sheets("EMPLOYEE MASTERLIST")
last_rowMasterlist = empMasterList.Cells(Rows.count, 2).End(xlUp).Row
With mainForm.EmpRecListBox
.ColumnHeads = True
.ColumnCount = 9
.ColumnWidths = "100,350,100,100,100,100,100,100,100"
.RowSource = empMasterList.Range("B1:K1").Address
End With
End Sub
</code>
Sub empRecListDisplay()
Dim empMasterList As Worksheet
Dim last_rowMasterlist As Long
Set empMasterList = ThisWorkbook.Sheets("EMPLOYEE MASTERLIST")
last_rowMasterlist = empMasterList.Cells(Rows.count, 2).End(xlUp).Row
With mainForm.EmpRecListBox
.ColumnHeads = True
.ColumnCount = 9
.ColumnWidths = "100,350,100,100,100,100,100,100,100"
.RowSource = empMasterList.Range("B1:K1").Address
End With
End Sub
4