/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 vote239 views1 answer
Nested if else in vb.net
VBA
0 vote250 views1 answer
Putting marquee in vb.net
VBA
0 vote222 views2 answers
Excel vba prevent save
VBA
0 vote235 views1 answer
Excel text to columns line break
VBA
1 vote223 views2 answers
Vba string to date
VBA
0 vote237 views1 answer
Excel vba range contains
VBA
1 vote227 views2 answers
Vba function return array
VBA
0 vote237 views1 answer
Search in richtextbox vb.net
VBA
0 vote260 views1 answer
Vbscript check if string contains
VBA
0 vote250 views1 answer
Vba html document reference
VBA