Find the column by name and to sum that column

[GirishDhruva]

Hi everyone i am posting for 1st time in MrExcel, Help me to solve this.
Here is the table.

Apple	Ball	Cat	Dog	Elephant
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366
123	432	34324	544	366

<colgroup><col><col><col span="3"></colgroup><tbody>
</tbody>

From the above table i need to find "Ball" and sum that column and that should be shown in a particular cell in VBA

 

[RoryA]

I don't understand that question either I'm afraid. You've calculated the sum in that code so you can do whatever you like with it.

 

[GirishDhruva]

Sorry , to be clear in my question that i found the solution for my problem but i need that answer in negative and that sum should be copied to another sheet, i am not getting how to do that , can u suggest me any way to solve it.

 

[RoryA]

You already worked out the answer using Application.Sum(fnd) so you can just assign that anywhere and negate it - e.g.

Sheets("some sheet").Range("A1").value = -application.sum(fnd)

 

[GirishDhruva]

Ya i have already found but my pointer will not be pointing to the solution that i have found , so my pointer should point to that solution , can u assist me for that .
But the solution that you have given will be pointing to "A1" , i need my pointer to point at my solution (example my pointer would be pointing "A1", but the solution that i have found would be in "A27",so how can i point to that, this is just an example. please don't reply as "Sheets("some sheet").Range("A27").value = -application.sum(fnd)")