T
Tommy Flynn
What's wrong with this sub?.....Sometimes it works, sometimes it doesn't.
I'm sure there is something obvious that I'm overlooking, but I don't see
it.
Thanks,
Tommy Flynn
Sub Send_Keys4()
Set myRng = Sheets(1).Range("B1:B36")
With myRng
.Select
.Formula = "=SQRT(A1:A36)"
End With
Application.SendKeys "{F2}^+~"
End Sub
I'm sure there is something obvious that I'm overlooking, but I don't see
it.
Thanks,
Tommy Flynn
Sub Send_Keys4()
Set myRng = Sheets(1).Range("B1:B36")
With myRng
.Select
.Formula = "=SQRT(A1:A36)"
End With
Application.SendKeys "{F2}^+~"
End Sub
.