SynderStar
Board Regular
- Joined
- Mar 17, 2016
- Messages
- 93
Code:
Sub UnMergeSameCell()
'Update by Max
Dim Rng As Range, xCell As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
WorkRng = WorkRng + 1
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
I want it to add 1 to the value in the selected cells .. what is the problem?