Windows 7 help

[Shaun]

this macro worked fine in XP now i have switched to Windows 7 64 bit it does not seam to work.

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As Variant
If Target.Columns.Count = 16 Then
Application.EnableEvents = False

With ThisWorkbook
If .Sheets("Venue").Range("AF3").Value = 1 Then
   .Sheets("Venue").Range("Z5:Z44").Value = Sheets("Venue").Range("AA5:AA44").Value
   
Else
   
    If [A1].Value = MyMarket Then
        GoTo Xit
    Else
        MyMarket = [A1].Value
        .Sheets("Venue").Range("Z5:Z44").Value = ""
        .Sheets("Venue").Range("Z5:Z44").Value = Sheets("Venue").Range("AA5:AA44").Value
    End If
   
End If
End With

Xit:
Application.EnableEvents = True
End If


Any ideas.
End Sub

[Shaun]

Ok that's strange, now it works, i mat some changes in properties of the sheet to allow me permissions and now it works.