Overwrite source data

[Wil Moosa]

I have a calculation (vba) to make using the data from cell A1 and to overwrite this source data by the outcome of the calculation. I did record a macro to achieve this:

Sub Macro1()
Range("A1").Select
ActiveCell.FormulaR1C1 = range."=25.59/24"
Range("A1").Select
Selection.NumberFormat = "[h]:mm"
End Sub

The point is that I need to replace 25.59 with code, refering to the actual value of A1. Who can help me here?

 

[VoG]

Try this

Sub Macro1()
With Range("A1")
    .Value = .Value / 24
    .NumberFormat = "[h]:mm"
End With
End Sub

 

[Wil Moosa]

VoG,

Thank you again. It works as asked for...