Hi,
been using below code to allow me to put a value in any cell and update all sheets across top 3 rows.
I would like it to be able to still do this but it doesnt seem to work with Ticks but only numbers and words
Option Explicit
Dim actsht$, actshtval, adrs$, sht As Worksheet
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Rows("1:3")) Is Nothing Then Exit Sub
actsht = Sh.Name
actshtval = Target.Value
adrs = Target.Address
Application.EnableEvents = False
For Each sht In ThisWorkbook.Worksheets
If sht.Name <> actsht Then sht.Range(adrs).Value = actshtval
Next
Application.EnableEvents = True
End Sub
[/QUOTE]
Bookmarks