/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 vote235 views1 answer
Vba word open document read only
VBA
0 vote231 views1 answer
Vba array dimensions
VBA
0 vote225 views1 answer
Rotate image by any angle vb.net
VBA
0 vote243 views1 answer
Vba random number
VBA
0 vote276 views1 answer
Winforms dark title bar
VBA
5 votes247 views1 answer
Excel vba tool to help with refactoring code
VBA
1 vote262 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
4 votes242 views1 answer
VBA Deep Clone Dictionary
VBA
0 vote226 views1 answer
VBA Sleep Snippet
VBA
0 vote228 views1 answer
Excel vba formatconditions range
VBA