This is using the snippets from the VBA help file.
It is pretty simple. You can also use specific
numbers in place of the .RowHeight * 2 Or the
..ColumnWidth * 2.

Sub wdthNhgt()
With Worksheets("Sheet1").Rows(1)
.RowHeight = .RowHeight * 2
End With
With Worksheets("Sheet1").Columns("A")
.ColumnWidth = .ColumnWidth * 2
End With
End Sub

"Ram B" wrote:

I have a worksheet that has and auto_open script to enable Outlining. I need
help on the command that will allow me to change Row and column widths.

Sub auto_open()
With Worksheets("Passive Safety")
.Protect Password:="password", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub