macro help

[Joneye]

I run this macro to view an area of a screen, my one problem is it returns it to an odd place in the screen.








Sub sale_out_view()
'
' sale_out_view Macro
' Macro recorded 24/03/2011 by Jon.Iremonger
'

'
Selection.AutoFilter Field:=19, Criteria1:=">01/01/2011", Operator:=xlAnd
Columns("F:O").Select
Range("O1").Activate
Selection.EntireColumn.Hidden = True
Range("V1").Select
ActiveCell.FormulaR1C1 = ""
Range("V1").Select
End Sub
Sub return_view()
'
' return_view Macro
' Macro recorded 24/03/2011 by Jon.Iremonger
'

'
Selection.AutoFilter Field:=19
Columns("E:P").Select
Range("P1").Activate
Selection.EntireColumn.Hidden = False
Range("X1").Select
End Sub

 

[JackDanIce]

Try:

Sub return_view()
'
' return_view Macro
' Macro recorded 24/03/2011 by Jon.Iremonger
'

'
Selection.AutoFilter Field:=19
Columns("E:P").Select
Range("P1").Activate
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub

Change A1 to whatever cell you want the macro to finish on<!-- / message --><!-- sig -->

 

[Joneye]

many thanks

 

[AlphaFrog]

Sub sale_out_view()
    Cells.AutoFilter Field:=19, Criteria1:=">01/01/2011"
    Columns("F:O").Hidden = True
    Range("V1").FormulaR1C1 = ""
End Sub

Sub return_view()
    Cells.AutoFilter Field:=19
    Columns("F:O").Hidden = False
End Sub