Try these
You were adding column headers in at lest two places so that's probably why they were doubled
Private Sub UserForm_Initialize()
Call Create_Lists
Call CondFormat
Dim ws As Worksheet
Dim lngRow As Long
Dim lvwItem As listItem
Dim lngCol As Long
Dim rSheet As Range
With ListView1
.View = lvwReport
.ColumnHeaders.Clear
Set ws = Worksheets("Basic to Sustain")
Set rSheet = ws.Cells(1, 1).CurrentRegion
rSheet.EntireColumn.AutoFit
For lngCol = 1 To rSheet.Columns.Count
.ColumnHeaders.Add , , ws.Cells(1, lngCol).Value, ws.Columns(lngCol).ColumnWidth * 10
Next lngCol
' LV_AutoSizeColumn ListView1
For lngRow = 2 To rSheet.Rows.Count
Set lvwItem = .ListItems.Add(, , ws.Cells(lngRow, 1).Value)
For lngCol = 2 To rSheet.Columns.Count
lvwItem.ListSubItems.Add , , ws.Cells(lngRow, lngCol).Value
Next lngCol
Next lngRow
Set ws = Worksheets("Specific to sustain")
Set rSheet = ws.Cells(1, 1).CurrentRegion
For lngRow = 2 To rSheet.Rows.Count
Set lvwItem = .ListItems.Add(, , ws.Cells(lngRow, 1).Value)
For lngCol = 2 To rSheet.Columns.Count
lvwItem.ListSubItems.Add , , ws.Cells(lngRow, lngCol).Value
Next lngCol
Next lngRow
Set ws = Worksheets("Improve-performance")
Set rSheet = ws.Cells(1, 1).CurrentRegion
For lngRow = 2 To rSheet.Rows.Count
Set lvwItem = .ListItems.Add(, , ws.Cells(lngRow, 1).Value)
For lngCol = 2 To rSheet.Columns.Count
lvwItem.ListSubItems.Add , , ws.Cells(lngRow, lngCol).Value
Next lngCol
Next lngRow
End With
End Sub
Private Sub UserForm_Activate()
Dim C As Long
Dim Wks As Worksheet
Dim SheetsFound()
With ListView1
.Gridlines = True
.View = lvwReport
.HideSelection = False
.FullRowSelect = True
.HotTracking = True
.HoverSelection = False
' .ColumnHeaders.Add Text:="Sheet", Width:=50 'Delete this
'********* .ColumnHeaders.Add Text:="Row", Width:=64
End With
Set Wks = Sheets(1)
'For C = 1 To 13
'******* For C = 1 To 60
'******* ListView1.ColumnHeaders.Add Text:=Wks.Cells(1, C).Text
'******* ComboBox1.AddItem Wks.Cells(1, C).Text
' Next C
ReDim SheetsFound(0)
For Each Wks In ActiveWorkbook.Sheets
If Not Wks.Name = "Lists" Then
SheetsFound(UBound(SheetsFound)) = Wks.Name
ReDim Preserve SheetsFound(UBound(SheetsFound) + 1)
End If
Next Wks
ReDim Preserve SheetsFound(UBound(SheetsFound) - 1)
SheetsFound = Array("Basic to Sustain", "Specific to sustain", "Improve-performance")
Me.ComboBox6.List = SheetsFound ' WorksheetFunction.Transpose(SheetsFound)
'Me.ComboBox6.List = WorksheetFunction.Transpose(SheetsFound)
ChartNum = 1
Call CondFormat
End Sub