Move one cell to the right of Active Cell

[alyssa75]

Hi All -

I am using the code below to identify and populate the first available cell in column A. How can I then tell it to move to column B on that same row and populate that will a predetermined variable/value?

Thanks!!

With ThisWorkbook
.Activate
.Sheets("ErrorLog").Cells(Rows.Count, "A").End(xlUp)(2, 1).Activate
.Sheets("ErrorLog").Cells(Rows.Count, "A").End(xlUp)(2, 1).Value = wbname
End With

 

[texasalynn]

try this

With ThisWorkbook
    .Activate
    .Sheets("ErrorLog").Cells(Rows.Count, "A").End(xlUp)(2, 1).Activate
    ActiveCell.Offset(0, 1) = wbname
End With

 

[Misca]

You don't need to activate / select things in VBA so you can simply use:

With ThisWorkbook.Sheets("ErrorLog").Cells(Rows.Count, "A").End(xlUp)(2, 1)
    .Value = wbname
    .Offset(, 1).Value = MyValue
End With

 

[alyssa75]

Thanks much!!