Print Formula with Result

[arnapsui]

I wanna print both the formula and the result from Excel sheet.

Please help me to do this.

Thanks

 

[Warship]

Something like:

Sub PrintFormulaWithResult()
    Dim cell As Range
    Dim L
    Dim sh As String
    
    Application.ScreenUpdating = False
    
    sh = ActiveSheet.Name
    L = 1
    
    Sheets.Add After:=Sheets(Sheets.Count)
    
    For Each cell In Sheets(1).UsedRange
        If cell.HasFormula Then
            Sheets(Sheets.Count).Cells(L, 1) = sh & " " & cell.Address(False, False) & " """ & cell.Formula & """ resolves to " & cell.Value
            L = L + 1
        End If
    Next cell
    
    Sheets(Sheets.Count).PrintOut
    
    Application.DisplayAlerts = False
    Sheets(Sheets.Count).Delete
    Application.DisplayAlerts = True
    
End Sub