When I added the code for moving the sheet it came up with this error

run-time error '-2147352565 (8002000b)':

AVG Test Failed or no virus found

Please advise

Here is the code i use

Private Sub CommandButton2_Click()
Workbooks.Open Filename:="C:\idsc\DESIGN\health care plan\BLANK
SHEETS.xls"
Sheets("PRIVATE INSURANCE").Select
Sheets("PRIVATE INSURANCE").Copy Befo=Workbooks("MALE client
database.xls"). _
Sheets(1)
Sheets("PRIVATE INSURANCE").Select
Sheets("PRIVATE INSURANCE").Move after:=Sheets(i)
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("PRIVATE INSURANCE").Select
Range("A6").Select
Selection.insert Shift:=xlDown
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=
_
"'PRIVATE INSURANCE'!A1", TextToDisplay:="'PRIVATE INSURANCE"
i = Sheets.Count
Sheets("pRIVATE INSURANCE").Move after:=Sheets(i)

greg2.Hide
greg3.Show


Thanks in advance

Greg

It is fine I managed to work it out I had the code repeating itself soon as
I noticed the error the message stopped


Thanks Greg