Prev: 1004 error when using ATPVBAEN.XLAM!Regress
Next: PDF export add-in
From: cm on 28 Sep 2009 12:30
ActiveWindow.DisplayHeadings = False

"Michael Lanier" wrote:

> I need to resize select columns and rows whenever A1="Resize".
> Columns and rows are hidden and the sheet is password protected
> (password="sparrow"). When A1="Resize", I need the hidden row and
> column headers to appear so another macro I have will adjust select
> column and row widths and heights. When finished, I need to delete
> the A1 "Resize" entry and the headers to once again be hidden and
> protected.
>
> Following is the resize macro but it currently does not affect
> headers:
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = Range("A1").Address Then
> Columns("C:C").ColumnWidth = Range("A1").Value
> End If
> If Target.Address = Range("A2").Address Then
> Rows("3:3").RowHeight = Range("A2").Value
> End If
> End Sub
>
> Thanks for any help that can be given.
>
> Michael
>
From: Michael Lanier on 28 Sep 2009 14:08
Thanks CM. It works as expected.

Michael
 | 
Pages: 1
Prev: 1004 error when using ATPVBAEN.XLAM!Regress
Next: PDF export add-in