App Error

[amal1973]

I have a prolblem with this code .
i am trying to enter a date and time after the pivot is updated

MyFile = "F:\Finance\Monthly Analysis\Technology Expense Review Group\Pivot Tables for month end Accounts by Descripion.xls"

Set wbXL = AppXL.Workbooks.Open(MyFile)

Set wbXL = AppXL.ActiveWorkbook

Set ShtXL = AppXL.Sheets("DP External&quot
ShtXL.Activate
AppXL.ActiveSheet.PivotTabl("PivotTable_DPExternal&quot.RefreshTable
AppXL.Sheets("DP External&quot.Cells(2, k).Value = Now()

i am geting an error . aplication defiend error ??

and how can i put this line
AppXL.Sheets("DP External&quot.Cells(2, k).Value = Now()
in a sub procedure and just call it .
thanks

 

[jebry]

Hi!

A MailItem object has a ReadReceiptRequested property that can be set in VBA. Set this to true and you will get a read receipt.

hth
Jeff Bridgham
bridgham@purdue.edu

 

[jebry]

Hi again!

Sorry, posted to the wrong thread.

Jeff Bridgham
bridgham@purdue.edu

 

[amal1973]

Thats okay .

I have solved my problem J
I f you could tell me how to loop through 15 sheets in an Excel Workbook, Skipping the first Cell, and then populating the rest (14 sheets in cell A1 with the Now () Function.

thanx