Scribd
Upload
135 views

Excel VBA

This macro allows you to open any program on your computer from within Excel. To use the macro, you need to specify the full file path and extension of the target program's executable file. The macro uses a Shell command to open the specified program. Instructions are provided on installing the macro in an Excel module and running it to open another program.

Uploaded by

Raj Kumar M
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
135 views

Excel VBA

This macro allows you to open any program on your computer from within Excel. To use the macro, you need to specify the full file path and extension of the target program's executable file. The macro uses a Shell command to open the specified program. Instructions are provided on installing the macro in an Excel module and running it to open another program.

Uploaded by

Raj Kumar M
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 4

Open any Program from Excel

This free excel macro allows you to open any program on your computer from excel. You can
open a media player, file viewer, image editor, internet browser, PowerPoint, Word, Outlook, or
any other program on your computer. This is a really useful macro to, in essence, combine
excel's functionality with that of another program. The vba code below can be used on its own or
integrated into an existing macro in order to open some other program on your computer. This
macro uses a Shell Command to open a program. Note: To use this macro to open a program on
your computer, you must enter the full file path to the program's executable file. So, you need to
enter the file path from the hard drive through all the folders up to the file. Also, each executable
file will end in a ".exe" file format; don't forget to include that extension in the macro as well.
To change the file path and extension to point to the location of your program's executable file,
simply change this line of code within the excel macro Shell ("C:\TEST\TEST.exe"). Change
the file path which is between the quotation marks to whatever your file path is.
Where to install the macro: Module

Open any Program from Excel


Sub Open_Program()
'Change the File Path below to point to any program
'on your computer. Don't forget to include the file extension
Shell ("C:\TEST\TEST.exe")
End Sub

How to Install the Macro


1. Select and copy the text from within the grey box above.
2. Open the Microsoft Excel file in which you would like the Macro to function.
3. Press "Alt + F11" - This will open the Visual Basic Editor - Works for all Excel
Versions. Or For other ways to get there, Click Here.
4. On the new window that opens up, go to the left side where the vertical pane is located.
Locate your Excel file; it will be called VBAProject (YOUR FILE'S NAME HERE)
and click this.
5. If the Macro goes in a Module, Click Here, otherwise continue to Step 8.
6. If the Macro goes in the Workbook or ThisWorkbook, Click Here, otherwise continue
to Step 8.
7. If the Macro goes in the Worksheet Code, Click Here, otherwise continue to Step 8.

8. Close the Microsoft Visual Basic Editor window and save the Excel file. When you
close the Visual Basic Editor window, the regular Excel window will not close.
9. You are now ready to run the macro.

Convert Text in Cells to Proper Case - First Letter of Each Word


Capitalized
Sub Proper_Case()
'This will make the first letter of the text within any selection of
'cells uppercase.
For Each x In Selection
x.Value = Application.Proper(x.Value)
Next
End Sub

Print Preview
Private Sub CommandButton1_Click()
'Show the print preview window for the entire active Excel workbook or file
Worksheets("Sunrich BILL 216").PrintPreview
End Sub

Print
Private Sub CommandButton2_Click()
ActiveSheet.PrintOut
End Sub

To print all sheets in a work book


Private Sub CommandButton2_Click()
Sheets.PrintOut

End Sub
To copy sheets in a work book
Private Sub CommandButton2_Click()
Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")

End Sub
To Move sheets in a work book

Private Sub CommandButton2_Click()


Worksheets("Sheet1").Move after:=Worksheets("Sheet3")

End Sub

Move Multiple sheets


Sheets(Array("Sheet4", "Sheet5")).Move before:=Sheets(1)

Activate sheets
Sheets("sheet1").Activate

Print Multiple Sheets


Worksheets(Array("Sheet2", "Sheet1")).PrintOut

Print Whole Workbook


'Print the active whole workbook
ActiveWorkbook.PrintOut

Print a Specific Sheet


'Print only "Sheet2"
Sheets("Sheet2").PrintOut

Print the Active Sheet


'only the activesheet
ActiveSheet.PrintOut

Print Selection
'Print only the selection
Selection.PrintOut

Print A Range
'Print range A1:C6
Range("A1:C6").PrintOut

Print preview
'Active sheet print preview
ActiveSheet.PrintOut preview:=True

Print All Worksheets


'Print all worksheets
Worksheets.PrintOut

You might also like