Hi, my pleasure Kanwal,
Try this MyForm.Height = Application.WorksheetFunction.HLOOKUP (FormSource,Dimensions,3,FALSE) MyForm.Width = Application.WorksheetFunction.HLOOKUP (FormSource,Dimensions,2,FALSE) . . . . . For more tips, tricks, downloads and problem solutions: visit --> http://www.excelitems.com ------------------------------------------------------------------------ Regards *Ashish **Jain* Analyst, CSC Australia Microsoft Certified Application (Excel) Specialist Technical Trainer - Excel and VBA Author -> www.excelitems.com +91-9999-40-48-43 ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- On Mar 20, 11:51 pm, kanwal_no1 <kanwal...@gmail.com> wrote: > Hi Ashish, > Thanks for being there........ > While I try to reexplain..... > > FormSource is a defined name of Cell A1, which contains a list a > values DataS1 DataS2, DataS3 and Datas4 > Dimensions is a defined name of range containing values for height and > width of the Form. > > I just want to know how to assign the values of a formula to the > height and width property of Form Object > I tried the following but it is not working..Somehow the formula needs > to be assigned differently. > > Private Sub Worksheet_Change(ByVal Target As Range) > MyForm.Height = "=HLOOKUP(FormSource,Dimensions,3,FALSE)" > MyForm.Width = "=HLOOKUP(FormSource,Dimensions,2,FALSE)" > End Sub > > Regards > Kanwaljit --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- 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 ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
