Call one function from another function in excel VBA

[BMD4]

Hello All,

I have 2 functions in my excel VBA.

1. Sub InsertPivotTable() - This function is creating pivot table in a new worksheet. Sheet B

2. Sub Copy_Pivot() - This function is copying pivot table from new sheet B to existing Sheet A.

Both the functions are working fine separately. But I have 2 macros for this.

Is there a way I can call Copy_Pivot() in the InsertPivotTable() function.

I added 'Copy_Pivot' towards the end. But this is not working and adding the function is not creating pivot table even.

Can any one please let me know what is missing here.

Sub InsertJEPivotTable()

code
ActiveSheet.PivotTables("SalesPivotTable").PivotFields("DR Amount").Subtotals = Array( _
        False, False, False, False, False, False, False, False, False, False, False, False)
        
Copy_Pivot

End Sub

[Vignessh]

Just copy paste the codes you used inside the sub Copy_Pivot() macro ,to the end of the Sub InsertPivotTable() . It will work .!

[BMD4]

Hello,

Thanks for the reply. I tried giving the code in the main sub. But it did not work. This is the code to copy pivot from 'PivotTable' sheet to 'Check' sheet.

Worksheets("Check").Activate
Range("B11:D9999").Select
    Selection.ClearContents
    Sheets("PivotTable").Select
    ActiveSheet.PivotTables("SalesPivotTable").PivotSelect "'Company Code'[All]", _
        xlLabelOnly, True
    Range("B11:D9999").Select
    Selection.Copy
    Sheets("Check").Select
    Range("B11").Select
    ActiveSheet.Paste
    Range("D12").Select

[Cobra17]

Make them functions, not subs on specific work sheets.

[BMD4]

Hello, Thanks for the reply.

Can you please let me know what the return value would be if I make it a function instead of Sub