代码不明吧，请高手们讲解下···（）

代码不明吧，请高手们讲解下···（在线等）
请高手忙吧讲解下···谢谢！！
With ActiveSheet
If Target.Count > 2 Then Exit Sub

Set rng = .Range("E28")
If Union(rng, Target).Address = rng.Address Then
  Static chkrange As Range
  If Not chkrange Is Nothing Then
  chkrange.Comment.Delete
  End If
   
  Dim cmt As Comment
  Dim hasComment As Comment
  Dim jpgImg As Object
   
  Set chkrange = Target
  Set hasComment = Target.Comment
   
  If hasComment Is Nothing Then
  Set cmt = Target.AddComment
  Else
  Set cmt = Target.Comment
  End If
  cmt.Visible = True
   
  pcode = .[b28].Text
   
  If VBA.Asc(pcode) >= 65 And VBA.Asc(pcode) <= 122 Then
  ac = VBA.Left(pcode, 7)
  If InStr(1, ac, "-") > 0 Then
  fname = "V:\P Code\Customer\" & .[E38].Text & "\" & pcode & ".jpg"
  Else
  fname = "V:\P Code\Others\AC Code\" & pcode & ".jpg"
  End If
   
  Else
  str = VBA.Left(pcode, 6)
  If CInt(str) <= 1000 Then
  fname = sPath & "000001-001000\" & pcode & ".jpg"
  ElseIf CInt(str) > 1000 And CInt(str) <= 2000 Then
  fname = sPath & "001001-002000\" & pcode & ".jpg"
  ElseIf CInt(str) > 2000 And CInt(str) <= 3000 Then
  fname = sPath & "002001-003000\" & pcode & ".jpg"
  ElseIf CInt(str) > 3000 And CInt(str) <= 4000 Then
  fname = sPath & "003001-004000\" & pcode & ".jpg"
  ElseIf CInt(str) > 4000 And CInt(str) <= 5000 Then
  fname = sPath & "004001-005000\" & pcode & ".jpg"
  ElseIf CInt(str) > 5000 And CInt(str) <= 6000 Then
  fname = sPath & "005001-006000\" & pcode & ".jpg"
  ElseIf CInt(str) > 6000 And CInt(str) <= 7000 Then
  fname = sPath & "006001-007000\" & pcode & ".jpg"
  ElseIf CInt(str) > 7000 And CInt(str) <= 8000 Then
  fname = sPath & "007001-008000\" & pcode & ".jpg"
  ElseIf CInt(str) > 8000 And CInt(str) <= 9000 Then
  fname = sPath & "008001-009000\" & pcode & ".jpg"
  ElseIf CInt(str) > 9000 And CInt(str) <= 10000 Then
  fname = sPath & "009001-010000\" & pcode & ".jpg"
  ElseIf CInt(str) > 10000 And CInt(str) <= 11000 Then
  fname = sPath & "010001-011000\" & pcode & ".jpg"
  End If
  End If
   
  Set jpgImg = CreateObject("WIA.ImageFile")
  jpgImg.LoadFile fname
  iw = jpgImg.Width
  ih = jpgImg.Height
  cmt.Shape.Fill.UserPicture fname
  cmt.Shape.Line.ForeColor.SchemeColor = 9
  cmt.Shape.ZOrder msoSendToBack
  cmt.Shape.LockAspectRatio = msoFalse
   
  nh = .Range("D29:E36").Height