Hi
I have a simple to do list with a cell that i am using to take notes -
I'm trying to use the following macro to toggle autofit on and off for
a particular cell. I have assigned the macro to a shape on the
worksheet. Problem is I often have to click the shape multiple times in
order for the macro to run. Any ideas why the following macro isn't
working? - I think it must have something to do with my using a shape
on the wks because the macro works fine when I run it from the vba
editor.

Sub RowAutoFit()
Dim StandardHeight
StandardHeight = 29

If Not Selection.RowHeight = StandardHeight Then
Selection.RowHeight = StandardHeight
Else
Selection.Rows.AutoFit
End If

End Sub

Thanks
Richard


--
rgarber50
------------------------------------------------------------------------
rgarber50's Profile: http://www.excelforum.com/member.php...o&userid=11350
View this thread: http://www.excelforum.com/showthread...hreadid=401721