/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 vote112 views1 answer
Vb net check if file exists
VBA
0 vote124 views1 answer
Reset border color textbox vba
VBA
1 vote116 views2 answers
Excel vba password protect
VBA
0 vote114 views1 answer
Vba len variant
VBA
0 vote115 views1 answer
Vba dropdown event
VBA
0 vote116 views1 answer
Excel vba formatconditions range
VBA
4 votes129 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
0 vote141 views1 answer
Excel vba add reference programmatically
VBA
0 vote123 views1 answer
Return na vba
VBA
0 vote129 views1 answer
VB get external IP address
VBA