/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 vote124 views1 answer
Enter into cells data grid view
VBA
0 vote124 views1 answer
Vba file size
VBA
0 vote203 views1 answer
Find the name of the last excel sheet vb
VBA
1 vote152 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
0 vote83 views1 answer
How to make a if statement with vbs
VBA
12 votes244 views1 answer
Excel vba write string to text file
VBA
0 vote178 views1 answer
Vba excel do not recalculate before save
VBA
0 vote131 views1 answer
How to carry text to the next line in a label in vb.net
VBA
0 vote122 views1 answer
Vba check 32 or 64 bit
VBA
8 votes211 views1 answer
Excel vba determine number of elements in a 1D array
VBA