セル番地を書き変えるだけです。F列には最終行までデータが入っているのですか?Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim myWindow As ObjectDim myUrl As StringDim rng As RangeSet rng = Range("F7", Range("F" & Rows.Count).End(xlUp))If Intersect(Ta...