Thread: Deleting Periods In a Row

This one was created with the macro recorder. I bet you yould learn to do that, too.

Sub DeletePeriods()
'
' Select cells and run macro
'
      Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

maybe

Sub DeletePeriodsInRow1()
      Range("1:1").Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Just a slight mod to teylyn's code to make it run a little more efficiently

Sub DeletePeriodsInRow1()

    Application.ScreenUpdating = False
    
      Range("1:1").Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
    Application.ScreenUpdating = True
    
End Sub