I've looked all around this wonderful web and I can't find anything on
executing VBA code when a specific worksheet is opened. There's plenty on
opening the workBOOK but I don't need that. What I'd like to do is have a
sheet automatically sort itself when it's opened.

Sheet name: "Half Payout" or "Sheet2"

sorting code: Range("B3:J99").sort Key1:=Range("D3"), Order1:=xlAscending,
Key2:=Range( _
"F3"), Order2:=xlAscending, Key3:=Range("B3"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal

Thanks for any help on this.

Private Sub Worksheet_Activate()
' put your code here
End Sub

Put this in the worksheet code area.
--
Gary''s Student - gsnu200839


"JSnow" wrote:

I've looked all around this wonderful web and I can't find anything on
executing VBA code when a specific worksheet is opened. There's plenty on
opening the workBOOK but I don't need that. What I'd like to do is have a
sheet automatically sort itself when it's opened.

Sheet name: "Half Payout" or "Sheet2"

sorting code: Range("B3:J99").sort Key1:=Range("D3"), Order1:=xlAscending,
Key2:=Range( _
"F3"), Order2:=xlAscending, Key3:=Range("B3"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal

Thanks for any help on this.

Thanks, GS! I knew it would be something simple like that.

"Gary''s Student" wrote:

Private Sub Worksheet_Activate()
' put your code here
End Sub

Put this in the worksheet code area.
--
Gary''s Student - gsnu200839


"JSnow" wrote:

I've looked all around this wonderful web and I can't find anything on
executing VBA code when a specific worksheet is opened. There's plenty on
opening the workBOOK but I don't need that. What I'd like to do is have a
sheet automatically sort itself when it's opened.

Sheet name: "Half Payout" or "Sheet2"

sorting code: Range("B3:J99").sort Key1:=Range("D3"), Order1:=xlAscending,
Key2:=Range( _
"F3"), Order2:=xlAscending, Key3:=Range("B3"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal

Thanks for any help on this.