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 Before:=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
Bookmarks