My Code for Running Total Not working for specific sheet

[Mohammad Ishaq]

Previously in this form i was helped to correct my vba code for running total.But that time the code is for the whole workbook and the code was running very well.

But now according to my need i want to set the code only for a specific sheet.Not for the whole workbook.
I want the code to set only for sheet 1.

I have change the code for the sheet1 only.But it is not working.

It should be note that i enter the data through user form not manually.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Application.EnableEvents = False
On Error GoTo eh
i = Range("D" & Rows.Count).End(xlUp).Row
Sh.Cells(i, "G").Value = Sh.Cells(i - 1, "G").Value + Sh.Cells(i, "E").Value - Sh.Cells(i, "F").Value

eh:
Application.EnableEvents = True
End Sub

I request you that please let me help to set the code only for a specific sheet not for the whole workbook.

 

[Belleke]

Without example file??
You are using

Sh.Cells

So I think you have to add

Set Sh = Worksheets("your sheet name")

Something like this

Dim i As Long
Dim Sh As Worksheet
Set Sh = Worksheets("Your sheet name")
Application.EnableEvents = False
On Error GoTo eh
i = Range("D" & Rows.Count).End(xlUp).Row
Sh.Cells(i, "G").Value = Sh.Cells(i - 1, "G").Value + Sh.Cells(i, "E").Value - Sh.Cells(i, "F").Value

eh:
Application.EnableEvents = True
End Sub

 

[Mohammad Ishaq]

I have used the code but still i have receive no result.For example i have upload the file.
Please review and help me to correct my code.

Thanks

 

[Belleke]

I get an error when I try to open your example

 

[Mohammad Ishaq]

Yes its ok now.Thanks

 

[Belleke]

OK, glad to help.