Increase/Decrease Column Size with Icon

[RMXByker]

I'm am looking for something that I thought would be relatively easy. This is proving to not be the case for the amount of knowledge in VBA I have obtained. I would like a Plus and Minus icon on a spreadsheet and use these to increase/decrease a specific columns width. The key is I want to increase either by 20% or something like a specific value (5). These both rely on using the current width with a multiplier or additive. Any ideas? Below is what I was tinkering with but no luck so far.

Sub ColumnIncrease()

ActiveSheet.Unprotect Password:="UNPROTECTME"
       
Dim cw As Long
Set cw = .Columns("Z").ColumnWidth
        
With Worksheets("Test Plan").Columns("Z").ColumnWidth = cw + 5
End With
    
ActiveSheet.Protect Password:="PROTECTME", AllowInsertingRows:=True, AllowDeletingRows:=True, AllowFormattingCells:=True


End Sub

 

[My Aswer Is This]

edit

 

[RMXByker]

edit

Flawless. Thanks a ton MyAswerIs. I will also add in some error proofing for if the user hits the "X" button as well. Thanks a lot!

 

[My Aswer Is This]

My script only increases the value. I edited out my code but you must have seen it before my edit. And then my percentage plan may not work. If you want one for decresing amount just modify this script and make two scripts. My math is not the best so maybe you can modify script to add or decrease by certain percentage amounts

Flawless. Thanks a ton MyAswerIs. I will also add in some error proofing for if the user hits the "X" button as well. Thanks a lot!