/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 vote211 views1 answer
Excel vba disable screen update
VBA
1 vote178 views1 answer
How to open cmd with vbd
VBA
0 vote200 views1 answer
Open application from vbnet
VBA
4 votes193 views1 answer
Excel vba how to reset usedrange
VBA
0 vote202 views1 answer
Excel vba address not absolute
VBA
1 vote208 views1 answer
Vba compile error object required
VBA
0 vote212 views1 answer
Vba html document reference
VBA
0 vote208 views1 answer
Vba word open document read only
VBA
0 vote206 views1 answer
Vbs write file
VBA
6 votes208 views1 answer
Excel vba get the path of current workbook
VBA