Loop for calculating the sales for a given area and a commodity

Hi All,

I was trying to use the following VB Script to calculate the Sales figure for a particular commodity and of a particular region and the end result being displayed in a MSGBOX. Finally, I get the message box but with no values in it.

------------------------------------------------------------------------------------
Private Sub Sales()

Dim Example As Worksheet
Set Example = ThisWorkbook.Sheets("Example")

LastRow = Example.Cells(Rows.Count, 1).End(xlUp).Row
SelRow = Selection.Row
Category = Example.Cells(SelRow, 9)
City = Example.Cells(SelRow, 5)

For x = 2 To LastRow
If Example.Cells(x, 9) = Category And Example.Cells(x, 5) = City Then
Tsale = Tsale + Example.Cells(x, 11)
End If
Next x
Stop

MsgBox "The total sale for" & Category & " and " & City & " is " & Tsale, vbOKOnly, "Msg1"

End Sub
-----------------------------------------------------------------------------------------------
Please help me out folks..

Can u throw some light on to the "SUMIFS".. I am a bit struggling in using it..!!

All I want to do is calculate the Sum of the sales of a particular city and of a particular commodity.. just like using SUMIF( range, criteria, [sum_range] )

Thank you AlphaFrog.. It worked.. I was able to execute the script..!!

Thanks again..