If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Macro for checkbox (2)
Hi
Still does not work new message is Sub or function not defined. I normaly just record macros so this is a bid more of a chalange Sub Macro1() ' ' If CheckBoxes(46).Value = True Then Range("O54").FormulaR1C1 = "50000" Range("T54").FormulaR1C1 = "4000" Range("Y54").FormulaR1C1 = "4000" Range("AD54").FormulaR1C1 = "4000" Range("AI54").FormulaR1C1 = "4000" Range("AN54").FormulaR1C1 = "4000" Range("AS54").FormulaR1C1 = "4000" Range("AX54").FormulaR1C1 = "4000" Range("BC54").FormulaR1C1 = "4000" Range("BH54").FormulaR1C1 = "4000" Range("O78").FormulaR1C1 = "120000" ActiveSheet.Shapes.AddShape (msoShapeRectangularCallout, 629.25, 643.5, 51#, _ 30.75).Select Selection.Characters.Text = "Japan" With Selection.Characters(Start:=1, Length:=5).Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic Selection.ShapeRange.Adjustments.Item(1) = -0.1618 Selection.ShapeRange.Adjustments.Item(2) = 1.1219 Selection.ShapeRange.ScaleHeight 0.56, msoFalse, msoScaleFromTopLeft Range("O77").Select ActiveWindow.SmallScroll Down:=-60 If CheckBoxes(46).Value = False Then Range("O78").ClearContents ActiveSheet.Shapes("AutoShape 44").Select Selection.Delete Range("O54:BH54").ClearContents Range("A5").Select End Sub |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Playing a macro from another workbook | Jim | General Discussion | 1 | February 23rd, 2005 10:12 PM |
automatic macro update | Myrna Larson | Worksheet Functions | 3 | February 9th, 2005 07:10 PM |
Date macro | Hiking | General Discussion | 9 | February 3rd, 2005 12:40 AM |
Can't get simple macro to run | Abi | Worksheet Functions | 5 | January 12th, 2005 07:37 PM |
Macro when a font in a range changes | whisperinghill | General Discussion | 0 | June 14th, 2004 07:21 PM |