Thanks Bob, it works great. I'm just starting to learn about macros,
appreciate the guidance.

Steve

Bob Phillips wrote:

Hi Steve,

Sub Macro1()
With ActiveCell
.Value = "text1"
.Offset(0, 1) = "text2"
.Resize(1, 2).Copy
End With
End Sub