Results 1 to 3 of 3

Thread: Error 438

  1. #1
    Join Date
    Jun 2009
    Posts
    4

    Unanswered: Error 438

    I have a table with changing lengths of the rows and columns. I want to make some formatting to the cells and I get error 438 - Object doesn't support this property or method when I try to execute the following code:

    Code:
    Sub ColorSet()
    
    Dim cLL As Range, Rg As Range
    'Set Rg = Range("A1:P10")
      Application.ScreenUpdating = False
     For Each cLL In Range("A1:P10")
      If IsEmpty(cLL) Then
       With cLL.Interior
       .ColorIndex = 0
       .Pattern = xlSolid
       End With
      Else
      With cLL.Interior
      .ColorIndex = 3
      .Pattern = xlSolid
      .LineStyle = xlContinuous
      End With
       End If
     Next cLL
     Application.ScreenUpdating = True
       
       End Sub
    Any help would be appreciated.

  2. #2
    Join Date
    Nov 2004
    Location
    out on a limb
    Posts
    13,692
    Provided Answers: 59
    probably best to move this to the Excel forum
    I'd rather be riding on the Tiger 800 or the Norton

  3. #3
    Join Date
    Jun 2009
    Posts
    4
    I got some help from the excelforum. We changed the procedure but it works fine. Thanks anyway for the help

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •