/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 vote187 views1 answer
Vbscript remove spaces from string
VBA
1 vote173 views2 answers
Vba remove first 2 characters from string
VBA
0 vote197 views1 answer
Vba extract filename from path
VBA
0 vote168 views1 answer
How to self delete a vbscript file
VBA
0 vote196 views1 answer
Vba sort multiple columns
VBA
1 vote194 views1 answer
Excel vba last row of range
VBA
0 vote180 views1 answer
Excel vba current folder
VBA
0 vote177 views1 answer
Vba copy paste value only
VBA
1 vote179 views1 answer
VBA Loop through recordset
VBA
0 vote196 views1 answer
Vbs expand env var
VBA