采用循环中的一部分

Sub 选取当前区域中的数据()
Dim i As Long

Dim str1 As String
Dim str3 As String

i = 3

str1 = "A" & i
str3 = "B" & i
    MsgBox str1    MsgBox str3

   Range("str1:str3").Select
    Selection.Delete Shift:=xlUp
End Sub
我的本意是删除掉A3:B3这两个单元格，但是不知道是因为我命名的缘故还是怎么的，最好删掉的str1:str3这两个单元格，这两个很遥远的，都没用到，也就是我之前的赋值不成功。但    MsgBox str1可以显示出来。
这种情况应该怎么命名？
谢谢。。。