Excel Custom List Box Range Query

[Bumpthis]

Hi
I have a excel list box which i made from a vba manual, however i have to open this spreadsheet via the internet explorer browser and am getting a debug error of Method 'Range' of object'_Global' failed
My code is and its highlighting the the Range line ????
Private Sub cmdOk_Click()
Range("$Q$1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Value = department.Value
Else
ActiveCell.Value = department.Value
End If
Loop Until Not IsEmpty(ActiveCell) = True
Application.EnableEvents = False
chart1_change
chart2_change
Application.EnableEvents = False
Range("$Q$1").Select
Unload Me
End Sub

Any help would be greatly appreciated