/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

5 votes374 views1 answer
Excel vba right word from Long Integer
VBA
1 vote312 views1 answer
Close form vba
VBA
0 vote312 views1 answer
Returns an array from function vba
VBA
0 vote323 views1 answer
Set column width of datagridview vb.net
VBA
0 vote333 views1 answer
Excel vba join variant array
VBA
0 vote348 views2 answers
Delete all controls from list of control vb.net
VBA
-1 vote359 views1 answer
How save excel through visual basic
VBA
0 vote347 views1 answer
Vba cell all borders
VBA
2 votes331 views2 answers
Vba code to remove duplicates from a column
VBA
0 vote341 views1 answer
How to get the value of optionbutton in vba
VBA