Recent content by baronvont

Thanks everyone - I missed that as well!!

Thanks Combo - but I still get the double save request!!?? It's only when I chose File > Save As. When I do a straight File > Save it works OK SaveAsUI = False Cancel = False Application.EnableEvents = False Application.DisplayAlerts = False MyInitialPathAndFilename = "C:\test\testfile2.xls"...

Been there, done that - the trouble with getting in a muddle is that eventually u can't see the forest for the trees. I suspect some of my problem is that the initial file is read-only. Mabe this interferes with the event trigger? Anyway, now even with this code (which I had tried b4), I still...

Skip, Thanks for the input - I have in fact done my homework on this (as always b4 posting!!). I've tried everything offered by the help and various posts here but still hitting the brick wall!! Anyway back to the code. Replacing the msgbox bit with soemthing useful after setting the default...

Skip, I have read it but it dosn't seem to work as expected. The example allows you to get a savename/location and going on, I would expect to use the "saveas" command to save the file with a "cancel = true" at the end of the routine to stop the default save routine from running. However as it...

This is doing my head in!! I am simply trying to redirect the place that the user is able to save the sheet ie in my documents as the file is originally opened from a read-only copy on the server .. it should be simple but... Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As...

Thanks Tony the Cancel = True does the trick Georg

Hi, I need to trap the save or SaveAs controls on the menubar, so I can control where and when the user saves a document. It's easy enough to see how the BeforeSave sub works, putting my own save commands in, but the problem is that when the code finishes, it still opens the standard save...

OK got it... Workbooks(1).Worksheets(1).Range("a1") = "hahaha" This stuff will be the death of me one day Thanks for the help Georg

as in worksheets(1).Range("a1").Value = "hahahaha" ?? Tried it already...that throws up "Application-defined or object-defined error" Georg

Hi all. Can anyong shed light on this problem. I have an XL sheet with the following code on a command button in the sheet: Range("a1").Value = "hahahaha" The same code is placed in a command buttton, but on a userform. Both work as expected. However, I now hyperlink to the sheet from a web...

Ok it was close.. After I changed it to this it worked... Activesheets.OLEObjects("ComboBox" & var).Object.Value Many thanks Georg

Mike Not quite - came up with 'Subscript out of range' After I changed it to this it worked... Activesheets.OLEObjects("ComboBox" & var).Object.Value Many thanks Georg

Skip, Thanks, but looks like shapes properties don't include .value, only format properties I tried messing with Worksheets("SheetName").OLEObjects("ComboBox" & var).Object.Value on advice from another guy but comes up with 2Suvscript out of range'... Georg

Hi Skip, it's excel. The boxes are on the sheet - 3 per row, 31 rows - 93 combl boxes labeled combobox1-90 Thanks Georg