Sub Macro1()
    With Worksheets(2)
        .Name = "QV[g"
        .Activate
        With .Range("A1")
            .Formula = "=NOW()"
            .RowHeight = 20
            .ColumnWidth = 20
        End With
    End With
End Sub
