/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

32 votes411 views2 answers
Excel vba column letter
VBA
0 vote261 views1 answer
Returns an array from function vba
VBA
0 vote257 views1 answer
Excel vba disable copy paste
VBA
0 vote271 views1 answer
Vba dictionary clear
VBA
0 vote289 views1 answer
Columns dont autoresize on program start vb.net
VBA
0 vote255 views1 answer
Dynamically change drop down list visual basic
VBA
0 vote278 views1 answer
Excel vba disable keyboard input
VBA
15 votes379 views2 answers
Xl vba dynamic string array
VBA
0 vote267 views1 answer
Vba code to open a file with login rights
VBA
6 votes315 views1 answer
Excel vba check if a string only contains alpha characters
VBA