/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

5 votes227 views1 answer
Xlvba double quotes in string literal
VBA
0 vote227 views1 answer
Selecttoken em vbnet e json
VBA
-1 vote204 views1 answer
Vba code to add new column in table
VBA
0 vote227 views1 answer
Excel vba protect shapes
VBA
0 vote210 views1 answer
Find days in month vba
VBA
1 vote219 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
8 votes304 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote209 views1 answer
Internet explorer reference vba
VBA
0 vote203 views1 answer
Excel vba disable copy paste
VBA
3 votes242 views2 answers
Vba date to string
VBA