/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 vote396 views1 answer
Perform http request in vb.net
VBA
0 vote364 views1 answer
Vbnet cycle through charaters in string
VBA
5 votes387 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote420 views2 answers
Excel vba store array and write to sheet
VBA
0 vote367 views1 answer
Vba extract filename from path
VBA
1 vote322 views1 answer
Excel vba get column name from number
VBA
0 vote356 views1 answer
Vbscript remove spaces from string
VBA
1 vote329 views1 answer
Excel vba first and last row and column in range
VBA
0 vote339 views1 answer
Vba type variable
VBA
0 vote328 views1 answer
Vba paste values
VBA