/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 vote219 views2 answers
VB
VBA
0 vote193 views1 answer
Vba string start with
VBA
0 vote196 views1 answer
Vba code to select image in sheet
VBA
0 vote190 views1 answer
Vb net check if file exists
VBA
0 vote210 views1 answer
Freeze panes vba
VBA
0 vote221 views1 answer
Vba listbox remove all items
VBA
0 vote193 views1 answer
Excel vba address not absolute
VBA
2 votes226 views2 answers
Excel vba if sunday or staurday
VBA
0 vote212 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote178 views1 answer
Excel vba milliseconds
VBA