IF statement not working as expected?

Hi All,

I have two worksheets named "Data" and "Product". I want to use the following macro to sort the records depending which sheet is active. If I am in the "Data" sheet, it does the sort in the "Product" sheet? I was expecting it to ignore the second IF statement when I am in the "Data" sheet? Please help.

Sub RegionSort()
'   Sort by Region
 Application.ScreenUpdating = False
 If Worksheets("Data").Visible Then
    Application.Goto Reference:="Data"
 End If
 If Worksheets("Product").Visible Then
    Application.Goto Reference:="Data2"
 End If
    Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A4").Select
 Application.ScreenUpdating = True
End Sub

Thank You

You are testing to see if the sheets are visible, which is not the same as being active.
Both sheets ARE visible, (ie. not Hidden), so both 'IF' statements will run.
Try testing to see which sheet the activesheet is instead.
Change:

 If Worksheets("Data").Visible Then

To be:

 If ActiveSheet.Name = "Data" Then

Obviously you need to change the other IF statement as well

It would be even easier if you named the range on each sheet 'Data' - then you could just sort the Data range on the active sheet.