Try this change
from:
With MainPagepg
to:
With sheets(MainPagepg)

or

With sheets("MainPagepg")

"Karen53" wrote:

Hi,

I've added row autofit but it still is not sizing. What am I doing wrong?

Sub SaveTenantName(Choice)

With MainPagepg

'save Tenants Name
With .Cells(Choice, 6)
.NumberFormat = "General"
.HorizontalAlignment = xlLeft
.WrapText = True
.Value = frmStoreData.txtTenantName.Value
End With
.Rows(Choice & ":" & Choice).EntireRow.AutoFit
End With

End Sub
--
Thanks for your help.
Karen53


"Karen53" wrote:

Hi,

I am placing information to a worksheet via vba code and the wrap is not
working. How do I correct this? Here is my code:

Sub SaveTenantName(Choice)

With MainPagepg

'save Tenants Name
With .Cells(Choice, 6)
.NumberFormat = "General"
.HorizontalAlignment = xlLeft
.WrapText = True
.Value = frmStoreData.txtTenantName.Value
End With

End With

End Sub
--
Thanks for your help.
Karen53