Ctrl Z is not woking in excel sheet

[kiranmalepat]

I have used below code in excel sheet, it is working fine. But only one problem is ctrl z is not working in that excel sheet. Please advice


Private Sub Worksheet_Change(ByVal Target As Range)
For i = 8 To 125
CTotal = Application.WorksheetFunction.Sum(Columns(i))
If CTotal = 0 Then
Cells(1, i).EntireColumn.Hidden = True
Else
Cells(1, i).EntireColumn.Hidden = False
End If
Next i
End Sub

 

[VoG]

Running any macro clears the Undo stack, so CTRL + Z won't work after your code has run.

 

[kiranmalepat]

then what is the solution for that??/

 

[Special-K99]

Write another macro that puts things back?

 

[VoG]

There isn't an easy solution without some complicated coding, for example Spreadsheet Page Excel Tips: Undoing A VBA Subroutine

 

[kiranmalepat]

Sorry i am not good in macros. Can u provide macro for the same.

Thanks in advance
Kiran