help me with this code

[bhandari]

Sub notworking()
With Worksheets(1)
WorksheetFunction.Sum (.Range(.Range("A1"), .Range("A7")))
End With
Sub moo()
WorksheetFunction.Sum (Worksheets(1).Range(Worksheets(1). _
Range("A1"), Worksheets("sheet2").Range("A7")))
End Sub

i dont understand what output iam geeting,i found this code in blog.i didnt get any error
code is excuted properly

can any one explain about this code

 

[MARK858]

Well you should be getting an error as you have 2 subs without an End Sub in between.

Also you aren't putting/printing the result anywhere so you shouldn't get an output.

Perhaps it would be better if you just explained exactly what you want the code to do.

 

[bhandari]

Sub notworking()With Worksheets(1)
WorksheetFunction.Sum (.Range(.Range("A1"), .Range("A7")))
End With
End Sub
Sub moo()
WorksheetFunction.Sum (Worksheets(1).Range(Worksheets(1). _
Range("A1"), Worksheets("sheet2").Range("A7")))
End Sub

i think both are similar codes
iwas looking for output
can i get sum("A1:A7") by using above code?

 

[MARK858]

The first code already sums A1:A7 on Worksheets(1). As I stated you aren't telling it to put the result anywhere.

Sub Working()
    With Worksheets(1)
        [COLOR="#FF0000"][B]Cells(1, "B") =[/B] [/COLOR]WorksheetFunction.Sum(.Range(.Range("A1"), .Range("A7")))
    End With
End Sub

 

[bhandari]

Thank you i just need to understand the concept how Worksheetfunction.sum is working
i got it
Here is a similar code but its not working

Sub firstClass2()
cells(2, "B") = WorksheetFunction.Sum(Worksheets(1).Range(Worksheets(1). _
Range("A1"), Worksheets("sheet2").Range("A7")))
End Sub