/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 vote163 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
2 votes167 views1 answer
Excel vba date to string conversion
VBA
5 votes163 views1 answer
Excel vba high word from Long Integer
VBA
0 vote166 views1 answer
Vba collection contains
VBA
0 vote160 views1 answer
Vbnet check if string is only symbols
VBA
0 vote187 views1 answer
Search for text in every worksheet excel visual basic
VBA
0 vote170 views1 answer
Excel vba linter
VBA
0 vote166 views1 answer
Excel named range sum
VBA
0 vote163 views1 answer
Make all controls in an area not visable vb
VBA
5 votes186 views1 answer
Vba low byte from INTEGER
VBA