Look at the code below
Why does the line : Range(x).Select , is not ok?

Sub לחצן264_לחץ()
'
' לחצן264_לחץ מאקרו
'

'
Dim x As String
Sheets("סריקות לילה ").Select
Sheets("סריקות לילה ").Copy Before:=Sheets(1)
Sheets("סריקות לילה (5)").Select
Range("F3").Select
Selection.Copy
x = "G" & Str(Day(Selection) + 3)
Sheets("גיליון1").Select
ActiveSheet.Paste
ActiveSheet.Shapes.Range(Array("Picture 42")).Select
Range(x).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'סריקות לילה (5)'!A1"
thanks