It works now.

Here is what I did 1 Created a new macro using the following commands. Tools, Macro, Record New Macro. I then cleared the contents and ran the macro from the macro control box it worked.

I then created a ?Command Button? as discussed in my previous thread.

Then I viewed the code page by right clicking on the worksheet Tab name. At this point I could find my macro under Project Explorer Module2. and my command button 1 that I created under a file called Sheet 6 (Sort16) as a Microsoft Excel objects. Once I entered the commands below my button worked.

Private Sub CommandButton1_Click()
Call Copy16
End Sub

I would like to thank all of you who answered my question and to parry who gave me an example of the above command.

I be back to learn more.

Mike in Wisconsin