/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 vote221 views1 answer
Vba leading zeros in string
VBA
1 vote222 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote220 views2 answers
Excel vba protect cells with formula
VBA
0 vote240 views1 answer
Vba horizontalalignment
VBA
0 vote234 views1 answer
Vba file chooser
VBA
25 votes280 views2 answers
Excel vba folder exist
VBA
0 vote224 views1 answer
Refer to resource using string variable vb.net
VBA
0 vote192 views1 answer
Excel vba concatenate range
VBA
0 vote241 views1 answer
Columns dont autoresize on program start vb.net
VBA
0 vote236 views1 answer
Vba remove last vbcrlf
VBA