worksheet change macro working in 64-bit windows 10 PC, but not working in another 32-bit windows 7 PC

[cbk40060]

I am using the a worksheet change macro to speed up entering totals of different denominations of currencies in around thirty cash counters.
The code of the worksheet change macro is as under:
'========================================================

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer
Dim s As Integer
Dim t As Integer
'Determine if change was made to cell H6
  If Not Intersect(Target, Range("H6")) Is Nothing Then
        On Error GoTo Safe_Exit
        Application.EnableEvents = False
    'Determine if the value in Range("D7") is greater than zero
     If Range("H6").Value > 0 Then
            r = Range("H6").Value
            s = r + 9
            t = r + 10
            Range("K" & t).Value = Range("I6").Value
            Range("H" & t & ":I" & t).Interior.ThemeColor = xlThemeColorAccent6
            Range("H" & t & ":I" & t).Interior.TintAndShade = -0.249977111117893
                If s > 10 Then
                    Range("H11" & ":I" & s).Interior.Pattern = xlNone
                End If
            Range("H6").ClearContents
      End If
  End If
Safe_Exit:
    Application.EnableEvents = True
End Sub

'===========================
After I enter the number of currency notes in Range(“H2:H5”), In cell “H6”, I enter the Sl. No. of the cash counter to which the total in Range(“I6”) is to be copied in column “K”.
For example, if I enter 2 in Range(“H6”), the cell ”K12” will be updated with the value in Range(“I6”).
Similarly if I enter 4 in Range(“H6”), the cell ”K14” will be updated with the value in Range(“I6”).

After updating column K, the value in Range(“H6”) will be deleted.

Again I can enter different values in Range(“H2:H6”), and appropriate rows in column “K” will be updated with the value in cell “I6”, depending upon the value in cell “H6”.

This cycle can be repeated many times.


This worksheet macro is working as per my requirements in a 64-bit windows 10 PC, with Office 2007.

But when I copy the same macro in another 32-bit windows 7 PC, as soon as I enter anything in any cell in the worksheet, excel hangs and closes.

I do not know what is going wrong in the other Windows 7 PC.

Please help me to make it work in the 32-bit windows 7 PC.

-CHANDRASHEKHAR.