Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro Help - Jacob Skaria has previously been helping
Hi,
I had alot of help yesterday from Jacob with the following macro, but am getting a 'run time error 13' when trying to run the macro, and i cannot see why. Any help much appreciated Sub OLApp() Dim objOL As Object, objApp As Object, lngRow As Long Set objOL = CreateObject("Outlook.Application") For lngRow = 9 To Cells(Rows.Count, "A").End(xlUp).Row If Range("E" & lngRow) = "" Then Set objApp = objOL.CreateItem(1) With objApp ..Subject = "Change Password for system" & Range("A" & lngRow) ..Start = Range("B" & lngRow) ..ReminderPlaySound = True ..Save End With Range("E" & lngRow) = "Done" End If Next Set objOL = Nothing End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Congratulations, Jacob Skaria... | Excel Discussion (Misc queries) | |||
Previously helped by Jacob Skaria -- need more help | Excel Discussion (Misc queries) | |||
Ping Jacob Skaria | Excel Worksheet Functions | |||
How do I get macro to unmerge cells that have been previously merg | New Users to Excel | |||
Can I set-up a macro to undo a previously run macro? | Excel Discussion (Misc queries) |