Hope this takes this time.

I have on sheet 1 a button that I have attached code to that is suppose to
sort data on sheet 2, sheet 3, sheet 4, well it is not working. So I'm
asking for help in trying to figure out what I'm doing wrong.

On sheet 1 the code is:

Private Sub Main Button 1()
Sheets ("Sheet 1").Select
ActiveSheet.Range ("A1:D45").Select
Call Sort1

Sheets ("Sheet 2").Select
ActiveSheet.Range ("A1:D45").Select
Call Sort1

Sheets ("Sheet 3").Select
ActiveSheet.Range ("A1:D45").Select
Call Sort1

End Sub
=================
Private Sub Sort1()

Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo,
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal

End Sub
=================