Just figured out how to do this by piecing together a couple of other
lines from different places:

Sub Macro1()

ActiveSheet.Select
ActiveSheet.Copy befo=Sheets(1)
Application.Run "RefireBLP"

End Sub


--
chris100
------------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=478055