/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 vote249 views1 answer
VBA Loop to range
VBA
0 vote242 views1 answer
Weekday vba
VBA
8 votes376 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote223 views1 answer
Vb net show lines for all axis labels in chart
VBA
0 vote216 views1 answer
Vbnet get file name from path
VBA
25 votes561 views3 answers
String to date vb
VBA
0 vote237 views1 answer
Worksheet.pastespecial textbox
VBA
15 votes524 views2 answers
Xl vba dynamic string array
VBA
0 vote244 views1 answer
Vba sheet hide unhide
VBA
0 vote221 views1 answer
Select case vba
VBA