Introduction to VBA

 CODE:

Sub del_BJSFM_files()

MsgBox ("This is a macro test")

Call Shell("cmd.exe  ", vbNormalFocus)

End Sub

Sub Shell()

Shell "cmd /c ping 8.8.8.8", vbMaximizedFocus

Shell "cmd /c pause", vbMaximizedFocus

End Sub

 

For more details, visit our website:
https://apprise-cyber.com/