/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 vote154 views1 answer
Vba get workbook name
VBA
0 vote154 views2 answers
Delete all controls from list of control vb.net
VBA
1 vote157 views1 answer
Excel vba first and last row and column in range
VBA
0 vote126 views1 answer
How to make a if statement with vbs
VBA
0 vote146 views2 answers
Excel vba copy paste after last row
VBA
0 vote157 views1 answer
Limit combobox to list vba
VBA
0 vote147 views1 answer
Excel vba disable screen update
VBA
1 vote152 views1 answer
Excel vba compare 2 rows
VBA
0 vote167 views1 answer
Find database connection string vb
VBA
20 votes300 views1 answer
Excel vba recursive example factorial function
VBA