Hi. Welcome to VBF.
I'm not too sure what you are trying to achieve. Could you explain why you want to move your combo around? Or is that not relevant?
This code will do something like what you ask (if I understand correctly), but it's not the finished article by any means...
VB Code:
Option Explicit Private bMovedAlready As Boolean Sub NewMacro1() ' ' NewMacro1 Macro ' Macro recorded 8/15/2005 by e0062010 ' ' If bMovedAlready = False Then Application.Run "Proto1.xls!Default2" ActiveSheet.Shapes("Drop Down 133").Select Selection.ShapeRange.IncrementLeft -90# Range("A16").Select bMovedAlready = True End If End Sub Sub NewMacro2() ' ' NewMacro2 Macro ' Macro recorded 8/15/2005 by e0062010 ' ' If bMovedAlready = True Then Application.Run "Proto1.xls!Custom" ActiveSheet.Shapes("Drop Down 133").Select Selection.ShapeRange.IncrementLeft 90# Range("A9").Select bMovedAlready = False End If End Sub




Reply With Quote