How can i do this code works right, I need to use a variable
Act = InputBox("Today", "Now", Thisday) 'here i need to write: 10513 (sheet name)
Range("AA2").Select
This works OK
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'10513'!R1C23:R117C23").CreatePivotTable TableDestination:="'[Control LE.xls]10513'!R4C27", TableName:="Tabla dinámica3", DefaultVersion:=xlPivotTableVersion10
This dont...
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="' Act '!R1C23:R117C23").CreatePivotTable TableDestination:="'[Control LE.xls]& Act '!R4C27", TableName:="Tabla dinámica3", DefaultVersion:=xlPivotTableVersion10
Bookmarks