set range

[atbenline]

Hi, I have hit a wall trying to create a macro to set a range using the last column with data and column "C". Column "C" being the constant and the other column always changing.

Thanks for any help,

Tyler

 

[atbenline]

That solved my problem. Thank you very much for your time.

 

[Fluff]

Not sure what the point is of applying CF to a column your going to hide, but try

Sub atbenline()
   Dim UsdCols As Long, UsdRws As Long
   Dim MyRange As Range
   UsdCols = Cells.Find("*", , xlValues, , xlByColumns, xlPrevious, , , False).Column
   UsdRws = Range("C" & Rows.Count).End(xlUp).row
   Set MyRange = Union(Range("C1:C" & UsdRws), Cells(1, UsdCols).Resize(UsdRws))
   With MyRange
      .FormatConditions.Delete
      .FormatConditions.AddUniqueValues
      .FormatConditions(.FormatConditions.Count).SetFirstPriority
      .FormatConditions(1).DupeUnique = xlDuplicate
      With .FormatConditions(1).Font
         .Bold = True
         .Italic = False
         .Color = -16776961
         .TintAndShade = 0
      End With
      With .FormatConditions(1).Interior
         .PatternColorIndex = xlAutomatic
         .Color = 13158625
         .TintAndShade = 0
      End With
      .FormatConditions(1).StopIfTrue = False
   End With
   MyRange.Areas(2).EntireColumn.Hidden = True
End Sub

 

[atbenline]

That solved my problem. Thanks for your time.

 

[Fluff]

You're welcome & thanks for the feedback