/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 vote199 views1 answer
Do while not vb.net
VBA
0 vote204 views1 answer
Vbs send keys
VBA
0 vote203 views1 answer
Vba get workbook name
VBA
3 votes235 views1 answer
Extract word in a text in excel
VBA
0 vote197 views1 answer
How to set location and size of new from vb
VBA
0 vote204 views1 answer
Add text to combobox drop down vb
VBA
0 vote221 views1 answer
How to add line graph vb net
VBA
0 vote223 views1 answer
Excel vba urlmon
VBA
8 votes474 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote196 views1 answer
Afficher un message d'erreur vba
VBA