Hi guys,
I have this formula in which I want to things:
1* In my spreadsheet the first formula, does the upper case function, but if I try to drag and drop in that range, it gives and error in VBA.
2* In the same spreadsheet the second formula, works to turn decimal into duration by round it, but I want to add a round of multiple of 15, thing that I can do in a normal excel sheet using the "=Ceiling(E15,15)".
... SO, I want to apply the Ceiling in this formula, without taking off the round function which is already there.
here is the formula:

Private Sub Worksheet_Change(ByVal target As Range)
    If Not (Application.Intersect(target, Range("C:D")) _
      Is Nothing) Then
        With target
            If Not .HasFormula Then
                Application.EnableEvents = False
                .Value = UCase(.Value)
                Application.EnableEvents = True
            End If
        End With
    End If
    If Not (Application.Intersect(target, Range("E5:E10005")) _
      Is Nothing) Then
        With target
            If Not .HasFormula Then
                Application.EnableEvents = False
                .Value = "0:" & Round(.Value * 60, 0)
                Application.EnableEvents = True
            End If
        End With
        End If
        End Sub