/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 vote116 views2 answers
Excel vba prevent save
VBA
0 vote122 views1 answer
Vb net show lines for all axis labels in chart
VBA
0 vote110 views1 answer
Vbnet make a string to unicode converter
VBA
0 vote112 views1 answer
Find days in month vba
VBA
0 vote123 views1 answer
Vba declare 64-bit ptrsafe
VBA
0 vote134 views1 answer
Find database connection string vb
VBA
0 vote116 views1 answer
Vba code for cutoff time
VBA
2 votes133 views2 answers
Vba code to remove duplicates from a column
VBA
5 votes137 views1 answer
Excel vba right word from Long Integer
VBA
0 vote116 views1 answer
Excel vba disable screen update
VBA