/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 vote149 views1 answer
WGET FTP
VBA
31 votes258 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
0 vote146 views1 answer
VB Error Code BC30201
VBA
0 vote149 views1 answer
Excel vba remove formatting from cell
VBA
4 votes100 views2 answers
Vba last row
VBA
0 vote145 views3 answers
Write to text file vb.net
VBA
0 vote136 views1 answer
Excel protect cells with formulas
VBA
0 vote139 views1 answer
Vba code for cutoff time
VBA
1 vote149 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
5 votes155 views1 answer
Excel vba left word from Long Integer
VBA