Thread
:
Need help with Application.WorksheetFunction
View Single Post
#
5
Posted to microsoft.public.excel.misc
Don Guillett
external usenet poster
Posts: 10,124
Need help with Application.WorksheetFunction
No selections. Notice the . before range in BOTH cases
Sub sumem()
With Worksheets("sheet11")
.Range("d1").Value = Application.Sum(.Range("c2:c22"))
End With
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Ayo" wrote in message
...
Worksheets(1).Select
With Selection
.Range("B21").Value =
Application.WorksheetFunction.Sum("B17:B20")
.Range("C21").Value =
Application.WorksheetFunction.Sum("C17:C20")
.Range("D21").Value =
Application.WorksheetFunction.Sum("D17:D20")
.Range("F21").Value =
Application.WorksheetFunction.Sum("F17:F20")
End With
What am I doing wrong here. I keep getting an error on this line
.Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20").
I also get an error on ":" when I tried
.Range("B21").Value = Application.WorksheetFunction.Sum(B17:B20)
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett