Problem with FollowHyperlink and Firefox

[marcus.ostman]

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?

 

[NickHK]

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

 

[marcus.ostman]

Seems to be some problem with FireFox portable installation, mine and
your code worked fine on a another computer. Thanx!

 

[NickHK]

Just tried it with it the portable version and still works fine.
Sure it not case of the ActiveCell.Value not being waht you expect ?

NickHK