Sub MainSort()
If ActiveSheet.Name = "1-OPEN" Then
Call Sort
ElseIf ActiveSheet.Name = "Internal Transfers" Then
Call SortStatus
Else
MsgBox ("Sorry, sort not available")
End If
End Sub

--

Vasant

"Eager2Learn " wrote in message
...
Hello,
I am getting an error with this simple code. Help.

Sub MainSort()
If ActiveSheet = Worksheets("1-OPEN") Then Call Sort
If ActiveSheet = Worksheets("Internal Transfers") Then Call
SortStatus
MsgBox ("Sorry, sort not available")
End Sub

Help.


---
Message posted from http://www.ExcelForum.com/