Troubleshooting If statement

The macro below is intended to call a macro named idgenerator, then check to see if range G8:H8 is not blank, and then save the workbook to a specific location but is failing to a type mismatch error on the first line of the if statement. Can anyone shed some light on this?

Public Sub nonprotsaveas()
Call IDgenerator


If ActiveSheet.Range("G8:H8") = "" Then
   MsgBox ("Please select a product category before sending this request")
   Exit Sub
  End If
  
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\udcg012\My Documents\Sample Request Project\Non Protein\" & Range("G8:H8") & "\" & Range("c3").Value & " " & Range("c5").Value & " " & Format$(Date, "mm-dd-yyyy") & ".xlsm"
End Sub

Thanks!
Clayton Grove