I found this code on the internet which works when dealing with one individual cell however stops working when values are pasted in to multiple cells at once. Can anyone help?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$3" Then
'disable events
Application.EnableEvents = False
Range("I3").Value = Range("I3").Value / 86400
End If
'reenable events
Application.EnableEvents = True
Exit Sub
'error handler
ErrHnd:
Err.Clear
'reenable events
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$3" Then
'disable events
Application.EnableEvents = False
Range("I3").Value = Range("I3").Value / 86400
End If
'reenable events
Application.EnableEvents = True
Exit Sub
'error handler
ErrHnd:
Err.Clear
'reenable events
Application.EnableEvents = True
End Sub