macro is not working?

[Derrick]

I opened up my workbook this morning, and a security warning for my macro
showed up. now, my macros - the code i inserted into the sheet - is not
working. I set my security level to low, i've saved it, re-typed it, ...
any ideas?

 

[Mike H]

Hi,

Not working isn't a very good description of the problem, perhaps you could
post the code to let us see what your trying to do.

Mike

 

[Jacob Skaria]

Lets redo that Derrick.

Set the Security level to low/medium in (Tools|Macro|Security). From
workbook launch VBE using short-key Alt+F11. From menu 'Insert' a module and
paste the macro. Save. Get back to Workbook. Run macro from Tools|Macro|Run
<selected macro()>

If this post helps click Yes

 

[Derrick]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
Rows("6:47").EntireRow.Hidden = False

If Range("B3") = "Standardized Module Width" Then
Rows("6:6").EntireRow.Hidden = False
Range("C6,D6") = 0
Rows("8:8").EntireRow.Hidden = True
Range("C8,D8") = 0
:
:
Range("F46") = 0
Rows("47:47").EntireRow.Hidden = False
ElseIf Range("B3") = "Standardized Module Height" Then
Rows("6:6").EntireRow.Hidden = True
Range("C6,D6") = 0
Rows("8:8").EntireRow.Hidden = False
Range("C8,D8") = 0
Rows("8:8").EntireRow.Hidden = False
:
:
Rows("45:46").EntireRow.Hidden = False
Rows("47:47").EntireRow.Hidden = True
ElseIf Range("B3") = "Non-Modular Frame" Then
Rows("6:6").EntireRow.Hidden = True
Range("C6,D6") = 0
Rows("8:8").EntireRow.Hidden = True
Range("C8,D8") = 0
Rows("10:10").EntireRow.Hidden = True
Rows("15:47").EntireRow.Hidden = False
End If
End Sub

 

[Derrick]

ok..
i've done that, and i continuously get the 'security is set to high'/'macros
disables' schpeel from excel, even though its set to low.

 

[Derrick]

OK! got it. i had to save and close the workbook, before the settings took
place.
thanks for the help though.