Web search active cell for EXCEL

web-search-active-cell.vb

Sub WebSearchActiveCell()
    Dim cs As Range
    Dim c As Range
    Dim query As String

    If ActiveWindow.RangeSelection.Count = 1 Then
        Set cs = ActiveWindow.RangeSelection
    Else
        Set cs = ActiveWindow.RangeSelection.SpecialCells(xlCellTypeVisible)
    End If

    For Each c In cs
        query = c.Value
        If Not query = "" Then
            doWebSearchActiveCell query
        End If
    Next
End Sub

Sub doWebSearchActiveCell(query)
    Dim strURL
    strURL = "https://www.google.co.jp/search?q="
    ActiveWorkbook.FollowHyperlink Address:=strURL & query
End Sub