Friend, Thanks for your great help...This code is awesome it works great!!!!
But in my original excel instead of column A,B and C,D i have the columns as Col O,P and Q,R. So i just copy and pasted the coding and made some changes as below. But it is not working in it...Can you clarify where am i going wrong...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo ResetApplication
Application.EnableEvents = False
Set isect = Intersect(Target, Range("O3:O20"))
If Not isect Is Nothing Then
If Target <> "" Then
Range("Q" & Target.Row) = Target * 60
Else
Range("Q" & Target.Row) = ""
End If
End If
ResetApplication:
Err.Clear
On Error GoTo 0
Application.EnableEvents = True
Set isect = Nothing
End Sub
Bookmarks