/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 vote162 views1 answer
Vbs run with cscript
VBA
0 vote150 views1 answer
How to use if condition in time vba
VBA
22 votes285 views1 answer
Excelvba check for directory
VBA
0 vote160 views1 answer
Windows Forms dark title bar
VBA
0 vote152 views1 answer
Excel vba Column Name from Column Number
VBA
0 vote163 views1 answer
Reset border color textbox vba
VBA
0 vote158 views1 answer
Vba sort the data Z to A
VBA
0 vote142 views2 answers
Excel vba copy paste after last row
VBA
0 vote154 views1 answer
Vba boolean to string
VBA
1 vote157 views1 answer
Vbscript convert ascii code to character
VBA