/VBA/Pivot data source not accepting table named range vba

Pivot data source not accepting table named range vba

'Check reference column and select the same number of rows in start and end columns
Sub selectByUsedRows(usedCol As String, selectStartCol As String, selectEndCol As String)
n = Range(usedCol & "1").End(xlDown).Row
Range(selectStartCol & "1:" & selectEndCol & n).Select
End Sub

'Dynamically select columns A to C with as many rows as are in A
Sub test()
refCol = "A"
selectStartCol = "A"
selectEndCol = "C"
selectByUsedRows refCol, selectStartCol, selectEndCol

'Code works until this point. There is now an active selection of A1:C8. 
'The following is hypothetical

Dim rngSelection As Range
Set rngSelection = ActiveSelection
Range(rngSourceData).CurrentRegion.Name = "rngSourceData"

Set objTable = Sheet5.PivotTableWizard

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    rngSourceData, Version:=xlPivotTableVersion14).CreatePivotTable _
    TableDestination:="Sheet5!R1C4", TableName:="PivotTable1", DefaultVersion _
    :=xlPivotTableVersion14
End Sub

Source: stackoverflow.com

Similar codes

0 vote137 views1 answer
Vb net dgv doesn't keep currency format
VBA
0 vote134 views1 answer
Vbscript remove spaces from string
VBA
0 vote153 views1 answer
Excel vba set cell value to empty
VBA
0 vote146 views1 answer
Excel vba convert cells address
VBA
1 vote135 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote148 views1 answer
Vba keep command window open
VBA
0 vote154 views1 answer
If statement vdhl
VBA
0 vote138 views1 answer
Vbscript abs
VBA
0 vote135 views1 answer
Vbnet line graph smooth lines
VBA
1 vote151 views1 answer
Excel vba first row in range
VBA