/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

1 vote160 views2 answers
Get all column names from excel vba
VBA
1 vote163 views1 answer
Excel vba hide zero values
VBA
0 vote162 views1 answer
Hello world vb.net
VBA
1 vote179 views2 answers
Excel vba password protect
VBA
0 vote212 views1 answer
Vba excel parser xml
VBA
0 vote160 views1 answer
Vba code to open a file with login rights
VBA
32 votes314 views2 answers
Excel vba column letter
VBA
27 votes309 views2 answers
Vba check if file exists
VBA
3 votes178 views1 answer
Excel insert blank row for value change in column
VBA
0 vote158 views1 answer
Open application from vbnet
VBA