[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$81" Then
If Target.Value > 0.99 Then
Me.Range("H81").Value = Date
End If
End If
End Sub[/VBA]
[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$81" Then
If Target.Value > 0.99 Then
Me.Range("H81").Value = Date
End If
End If
End Sub[/VBA]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote