'Private Sub Command4_Click()
    'If Excel_FlexGrid(App.Path & "\Mufts.xls", MSFlexGrid1, 25, 25, "UKM12") Then
        'Call HighLight_Cells(MSFlexGrid1, CDbl("20"), 1)
    'End If
'End Sub

Option Explicit
Dim obj_Excel As Object
Dim obj_Workbook As Object
Dim obj_Worksheet As Object

Public Sub Command1_Click()
  Dim i As Integer
  Dim PathF, NameList As String
  PathF = App.Path
    If Combo1 = "UKM12" Then
        NameList = "UKM12"
        Picture1.Picture = LoadPicture(PathF + "\1.jpg")
        End If
    If Combo1 = "UPM24" Then
        NameList = "UPM24"
        Picture1.Picture = LoadPicture(PathF + "\2.jpg")
        End If
Set obj_Excel = CreateObject("Excel.application")
    Set obj_Workbook = obj_Workbook.Open(App.Path & "\Mufts.xls")
    If Combo1 = "NameList" Then
    Set Excel_FlexGrid = obj_Worksheet.Worksheets(NameList)
       Call HighLight_Cells(MSFlexGrid1, CDbl("20"), 1)
    End If
    End Sub