Excel VBA call function for Stored Procedure

excel-run-stored-procedure.vba

Public Sub getDataFromRecordset()
 
    Dim sheet As String
    sheet = "Data"
   
    Worksheets(sheet).Select
    Range("A1").Select
   
    Set rPrint = Worksheets(sheet).Range("A2")
   
    Dim rst As New ADODB.Recordset
   
    Set rst = getInfoFromStoredProcedure()
   
    If Not rst.EOF Then
        rPrint.CopyFromRecordset rst
    End If
   
    rst.Close
   
    
'    Cells.Select
'    Selection.ColumnWidth = 50.86
'    Cells.EntireColumn.AutoFit
'    Cells.EntireRow.AutoFit
   
    Range("A1").Select
    
    MsgBox " Report downloaded"
   
End Sub