asked on

have a comment inserted into an excel spreadsheet using VB

I want to insert a comment into a file that instructs the user to click on insert and then function/standard deviation.
The code as it is:

Set objExcel = CreateObject("Excel.Application")
 
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.Comment.Add "My comment"
objExcel.Cells(1, 1).Value = "Date"
objExcel.Cells(1,2).Value = "Student"
objExcel.Cells(1,3).Value = "Wk1"
objExcel.Cells(1,4).Value = "Wk2"
objExcel.Cells(1,5).Value = "Wk3"
objExcel.Cells(1,6).Value = "Wk4"
objExcel.Cells(1,7).Value = "Wk5"
objExcel.Cells(1,8).Value = "Wk6"
objExcel.Cells(1,9).Value = "Wk7"
objExcel.Cells(1,10).Value = "Wk8"
objExcel.Cells(1,11).Value = "Mean"
objExcel.Cells(2,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(1,13).Value = "Click on insert on taskbar then choose function and add the formula for the standard deviation and then copy and paste into the cells below"
objExcel.Cells(3,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(4,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(5,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(6,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(7,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(8,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(9,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(10,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(11,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(12,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(13,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(14,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(15,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(16,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(17,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(18,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(19,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(20,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(21,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(22,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(23,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(24,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(25,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(26,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(27,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(28,11).Value = "=SUM(A3:A10)/8"
 
objExcel.Cells(1,12).Value = "S.D"

Open in new window

ASKER CERTIFIED SOLUTION

EDDYKT

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Dier02

ASKER

comes up with error if I copy it into notepad as save as a .vbs file then double click on it to run.