/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 vote364 views1 answer
Vba type
VBA
0 vote370 views1 answer
Vbnet chart make 0 gridline line different color
VBA
0 vote355 views1 answer
Vba full date format
VBA
0 vote370 views1 answer
Arq linux
VBA
0 vote354 views1 answer
Vba paste values
VBA
0 vote358 views1 answer
Vbnet check if string is only numbers
VBA
0 vote353 views1 answer
Set column width of datagridview vb.net
VBA
0 vote377 views1 answer
Excel last used row
VBA
0 vote401 views1 answer
Excel vba Column Name from Column Number
VBA
0 vote355 views1 answer
Excel vba address not absolute
VBA