'Deepak EduWorld...
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Application.FindFormat.Clear Application.ReplaceFormat.Clear Application.FindFormat.Interior.Color = 65534 Application.ReplaceFormat.Interior.Color = xlNone Cells.Replace "", "", SearchFormat:=True, ReplaceFormat:=True Application.FindFormat.Clear Application.ReplaceFormat.Clear Application.FindFormat.Interior.Color = xlNone Application.ReplaceFormat.Interior.Color = 65534 Target.EntireRow.Replace "", "", SearchFormat:=True, ReplaceFormat:=True Target.EntireColumn.Replace "", "", SearchFormat:=True, ReplaceFormat:=True Application.FindFormat.Clear Application.ReplaceFormat.Clear Application.ScreenUpdating = True End Sub 'Deepak EduWorld...
No comments:
Post a Comment
THANKS FOR YOUR SUPPORT