/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 vote174 views1 answer
Worksheet.pastespecial textbox
VBA
0 vote165 views1 answer
VB get external IP address
VBA
4 votes183 views1 answer
VBA Deep Clone Dictionary
VBA
0 vote151 views1 answer
Style percent not found vba
VBA
0 vote183 views1 answer
Vba dictionary length
VBA
0 vote170 views1 answer
Excel vba cell on change
VBA
0 vote160 views1 answer
Vba first cell in range
VBA
0 vote173 views1 answer
Xlbycolumns is not declared
VBA
0 vote165 views1 answer
Find days in month vba
VBA
0 vote167 views1 answer
Vbscript remove spaces from string
VBA