/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 vote335 views1 answer
Vba simple quote
VBA
0 vote332 views1 answer
Handling a click event anywhere inside a panel vb
VBA
-1 vote368 views1 answer
VBA check if a cell contains a letter or string
VBA
0 vote339 views1 answer
Excel vba saveas no prompt for overwrite
VBA
0 vote391 views1 answer
Vbs run with cscript
VBA
0 vote366 views1 answer
Vbnet convert charatcer to binary
VBA
8 votes457 views1 answer
Excel vba make word
VBA
0 vote350 views1 answer
Xlbycolumns is not declared
VBA
5 votes338 views1 answer
Excel vba how to unit test vba code
VBA
5 votes362 views1 answer
Excel vba tool to help with refactoring code
VBA