Earl,

This should do the trick

:==========================================
Sub Mover()

Sheets("ReceiptsR").Visible = True
ActiveSheet.Move Befo=Sheets("ReceiptsR")
Sheets("ReceiptsR").Visible = False

End Sub
:==========================================

http://www.excel-ant.co.uk