Hi dear Steve, This is the solution :)
Create: 1) A combobox "ComboBox1" 2) A Command Button "CommandButton1" and copy the following code -------------------------------------------------------------------------------------------------------------------------------------------------- Dim x As Range -------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then x = ComboBox1.Text Set x = x.Cells(2, 1) ComboBox1.Left = x.Left ComboBox1.Top = x.Top ComboBox1.Width = x.Width ComboBox1 = "" End If End Sub -------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton1_Click() Set x = ActiveCell ComboBox1.Left = x.Left ComboBox1.Top = x.Top ComboBox1.Width = x.Width End Sub -------------------------------------------------------------------------------------------------------------------------------------------------- Hope you got the solution. --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
