G
Guest
You just needed to use the set command. Don't declare strplace as a string.
Sub test()
Set strPlace = ActiveCell
Do While Selection.Value = "not tired"
Range("B100").Select
Loop
MsgBox strPlace
strPlace.Select
End Sub
Sub test()
Set strPlace = ActiveCell
Do While Selection.Value = "not tired"
Range("B100").Select
Loop
MsgBox strPlace
strPlace.Select
End Sub