Happy you finally got it sorted.
Regards
MD
Happy you finally got it sorted.
Regards
MD
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Thinking further, the first If seems superfluous. Try it with
[vba] For Each cel In Selection
If InStr(1, cel, ".") > 0 And InStr(1, cel, D) > 0 Then
cel.Replace What:=".", Replacement:=T, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
cel = cel * 1
End If
Next[/vba]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'