Carl_Maddox

Are you trying to make explorer the activate window. If so does this work for VB : GetApp = Shell("c:\windows\explorer.exe", 1) Cheers, Carl

Hi For the first calculation just use : IF(MOD(AVERAGE(D1,E1),2)<=0.34,INT(AVERAGE(D1,E1)),IF(MOD(AVERAGE(D1,E1),2)<=0.69,SUM(INT(AVERAGE(D1,E1)),0.5),ROUNDUP(AVERAGE(D1,E1),0))) Substitute the cells (D1, E1) for the new cell addresses as you go along. You may also wish to reference your targets (i.e. 0.34, 0.69) through lookups for ease of use. Cheers, Carl

Hi, I've customed the 'Worksheet Menu Bar' items in Excel 97. I wanted to disable the right mouse click and the double click for the main menu bar, thus, providing protection. I disabled the right mouse click by: Application.CommandBars("Toolbar List").Enabled = False which was fine. I then disabled the double click by: Application.DoubleClick = "DisableDB" Sub DisableDB() Application.CommandBars("Toolbar List").Enabled = False End Sub My problem is, I have now set Application.DoubleClick = "", however, the double click returned but my right mouse click (for the pop up menu) on a worksheet is not working. Any ideas would be appreciated. Many Thanks, Carl