This works for me with FireFox (and Opera for that matter).

Private Sub CommandButton1_Click()
Const HLINKBASE As String = "http://www.rcdb.com/qs1.htm?quicksearch="

Range("A1").Value = "Kingda Ka"
ActiveWorkbook.FollowHyperlink Address:=HLINKBASE & Range("A1").Value,
NewWindow:=True

End Sub

NickHK

wrote in message
oups.com...
This macro takes active cell value and adds to a link and then opens
it in the default browser, it works fine with IE.
But with Firefox the link becomes, "http://www.rcdb.com/qs.htm?
quicksearch=JetlineFirefoxHTML\Shell\Open\Command" .

Sub rcdb_check()
Dim RCDBCLINK As String
RCDBCLINK = "http://www.rcdb.com/qs.htm?quicksearch=" &
ActiveCell.Value
ActiveWorkbook.FollowHyperlink Address:=RCDBCLINK, NewWindow:=True
End Sub

Does anybody have a solution for this or a alternative code?