/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 vote299 views1 answer
Vba copy file
VBA
0 vote284 views1 answer
Vba dictionary length
VBA
5 votes332 views1 answer
Excel vba right word from Long Integer
VBA
0 vote297 views1 answer
Refer to resource using string variable vb.net
VBA
0 vote326 views1 answer
Excel delete ever other vba
VBA
0 vote259 views1 answer
How to self delete a vbscript file
VBA
0 vote290 views1 answer
Vbnet get file name from path
VBA
11 votes426 views1 answer
Excel vba How to URL encode a string
VBA
0 vote297 views1 answer
Backspace key has stopped working visual studio
VBA
0 vote290 views1 answer
Vb.net change cursor to wait
VBA