Having issues with my VBA adding to a cell value

[SynderStar]

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?

 

[dssJones]

OK, I give. What is the problem? Do you get an error message, or does it just sit there like nothing is happening.

 

[dssJones]

I see.

change
WorkRng = WorkRng + 1
to
Rng.value = cint(Rng.value) + 1

The ".value" is usually optional

Be careful. We are not checking to see if Rng.value is numeric.

 

[SynderStar]

YOU JUST SAVED THE DAY!!!!

Thank you so much!