/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 vote325 views1 answer
Excel vba convert cells address
VBA
0 vote289 views1 answer
Replace spaces with underscores vbnet
VBA
0 vote311 views1 answer
Iterate all file in a folder vba
VBA
0 vote308 views1 answer
Reference to a non-shared member requires an object reference
VBA
1 vote289 views1 answer
Add control vb
VBA
0 vote295 views1 answer
Excel vba join variant array
VBA
0 vote318 views1 answer
Vba count all row
VBA
0 vote296 views1 answer
WGET FTP
VBA
1 vote289 views1 answer
Excel vba unload userform
VBA
0 vote288 views1 answer
Excel vba delete folder
VBA