VBA Code Cell Select?

[Javi]

Hi All,

Could someone please help me I'm stuck. I would like the code to bring me back to the cell I was in when I ran it. The code " Range("ActiveCell").Select" errors out on me.

Sub Finished_Edit()
'
' Finished_Edit Macro
'
    Columns("J:O").Select
    Selection.EntireColumn.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    'ActiveSheet.Unprotect
    Range("ActiveCell").Select
            
'
End Sub

 

[tweedle]

[COLOR=blue]Dim rngStart as Range[/COLOR]
[COLOR=blue]rngStart=Activecell[/COLOR]
    Columns("J:O").Select
    Selection.EntireColumn.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    'ActiveSheet.Unprotect
    [COLOR=blue]rngStart.Select[/COLOR]

 

[Blade Hunter]

If you don't select the range to hide, your selection will not change therefore no need to reselect it.

Sub Finished_Edit()
    Columns("J:O").EntireColumn.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Note my signature

 

[Javi]

Thanks code worked great!

However I get an error if the button is clicked twice and the columns are hidden is there a way to prevent this.

Sub Finished_Edit()
'
' Finished_Edit Macro
'
  
    Columns("J:O").EntireColumn.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    
'
End Sub

 

[Blade Hunter]

Sure thing:

Sub Finished_Edit()
    If not Columns("J:O").EntireColumn.Hidden then Columns("J:O").EntireColumn.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[Javi]

Thank you very much!!! Worked just as you said.

Did you see my question about adding borders?

 

[Blade Hunter]

Nope, post a link in here and I will click through.

Cheers

Dan

 

[Javi]

Please see link below

http://www.mrexcel.com/forum/showthread.php?t=583343