Sub ReplaceDecimalPointsWithCommas()
Dim rng As Range
Dim cell As Range
Set rng = ActiveSheet.UsedRange ' Change to specify a specific range if needed
For Each cell In rng
If cell.HasFormula Then
' If the cell has a formula, replace decimal points with commas in the formula
cell.Formula = Replace(cell.Formula, ".", ",")
ElseIf IsNumeric(cell.Value) Then
' If the cell contains a numeric value, replace decimal points with commas in the value
cell.Value = Replace(cell.Value, ".", ",")
End If
Next cell
End Sub