Code for Only Getting Names:

Sub LoopThroughFiles()

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer

Set oFSO = CreateObject("Scripting.FileSystemObject")

FolderName = Range("B2").Value

Set oFolder = oFSO.GetFolder(FolderName)

For Each oFile In oFolder.Files

Cells(i + 1, 1) = oFile.Name …

Copying Excel Charts to PowerPoint can be quite time-consuming if there are are several charts and / or if it is a repetitive task.

The codes illustrate how to automate this process.

Sub ChartsToPresentation_MultipleSlides()
' Set a VBE reference to Microsoft PowerPoint Object Library
Dim PPApp As PowerPoint.Application
Dim PPPres As…

Excel code:

Function CONVERT_TO_INR(ByVal MyNumber)'**** By Yogi Anand - Oct-2003
'**** SpellIndian (modified on 20-Sep-2003 to 1) show Rupees to precede, and to show "" for 0 paise)
'**** ySpellRupees (on 20-Nov-2002)
'**** Excel UDF to spell Indian Currency -- Rupees and Paise into text
'**** Indian currency starts off with 1000s, and…


Founder @ Havish M Consulting | 40u40 [Analytics Insight] | AuthorX20 | MOS | MCDA | MCT | Taught at IIM ABCLK

Get the Medium app

A button that says 'Download on the App Store', and if clicked it will lead you to the iOS App store
A button that says 'Get it on, Google Play', and if clicked it will lead you to the Google Play store