/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

3 votes337 views1 answer
Vba make long from two words
VBA
0 vote345 views1 answer
Open file dialog in vb.net
VBA
0 vote342 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote351 views1 answer
Excel vba unmerge sheet
VBA
0 vote330 views1 answer
Vba remove last vbcrlf
VBA
8 votes368 views1 answer
Excel vba make integer
VBA
1 vote303 views1 answer
Textbox find and replace vb
VBA
0 vote311 views1 answer
Excel vba address not absolute
VBA
32 votes503 views2 answers
Excel vba column letter
VBA
0 vote336 views1 answer
How to format a textbox as date vb net
VBA