/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

8 votes252 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote282 views1 answer
Excel vba convert cells address
VBA
0 vote255 views1 answer
Add text to Shape VBA
VBA
4 votes227 views1 answer
Excel formula for last non-empty cell in a column
VBA
0 vote244 views1 answer
How to carry text to the next line in a label in vb.net
VBA
1 vote262 views1 answer
Vba loop through files in folder
VBA
1 vote241 views1 answer
How to check is the value enterd is a number or text in vba
VBA
5 votes632 views1 answer
Vlookup vba
VBA
0 vote247 views1 answer
Excel vba delete folder
VBA
0 vote263 views1 answer
Vba search string position
VBA