Hi
I have the following macro but im trying to make a number in cell D8 increase by one every time the clear sheet macro is run. Any ideas? I think that I have cell D8 clearing in the macro, Can anyone confirm yes or no it clears as obviously I dont want it to.
I have the following macro but im trying to make a number in cell D8 increase by one every time the clear sheet macro is run. Any ideas? I think that I have cell D8 clearing in the macro, Can anyone confirm yes or no it clears as obviously I dont want it to.
VBA Code:
Range( _
"D34:D35,B46:H47,G56:H56,C60:C71,G77:H77,C81:C88,G93:H93,C94:C101,C5:D7,H11:H22" _
).Select
Range("H22").Activate
ActiveWindow.SmallScroll Down:=20
Range("B46:H47,G56:H56,C60:C71,G77:H77,C81:C88,G93:H93,C94:C101,C5:D7,H11:H22") _
.Select
Range("H11").Activate
ActiveWindow.SmallScroll Down:=-40
Range("C5:D7,H11:H22").Select
Range("H11").Activate
ActiveWindow.SmallScroll Down:=24
Range("C5:D7,H11:H22,D34:D35,B46:H47").Select
Range("B46").Activate
ActiveWindow.SmallScroll Down:=20
Range("C5:D7,H11:H22,D34:D35,B46:H47,G56:H56").Select
Range("G56").Activate
ActiveWindow.SmallScroll Down:=12
Range("C5:D7,H11:H22,D34:D35,B46:H47,G56:H56,C60:C71").Select
Range("C60").Activate
ActiveWindow.SmallScroll Down:=8
Range("C5:D7,H11:H22,D34:D35,B46:H47,G56:H56,C60:C71,G77:H77").Select
Range("G77").Activate
ActiveWindow.SmallScroll Down:=8
Range("C5:D7,H11:H22,D34:D35,B46:H47,G56:H56,C60:C71,G77:H77,C81:C88").Select
Range("C81").Activate
ActiveWindow.SmallScroll Down:=12
Range( _
"C5:D7,H11:H22,D34:D35,B46:H47,G56:H56,C60:C71,G77:H77,C81:C88,C94:C101,G93:H93" _
).Select
Range("G93").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-100
ActiveWorkbook.Save
End Sub