YellowLabPro
09-05-2006, 04:59 AM
I have been working on this piece of code for several days now... trying to tweak it. Something is bombing Excel now. There is nothing too large that should be doing this, there are about 100 records, so it must be the code.
It bombs on the first instruction--
Sub FillDown_2()
Dim ws1 As Worksheet
Dim LRow As Long
Dim UpperCase
Dim Rng As Range
Dim c As Range, rg As Range, cel As Range
Set ws1 = Workbooks("TGS Item Record Creator.xls").Sheets("Record Creator")
'Variable
LRow = ws1.Cells(Rows.Count, 3).End(xlUp).Row
'On Error Resume Next
' Set Rng = Cells.SpecialCells(xlCellTypeConstants, 2)
' For Each c In Rng
' c.Value = UCase(c.Value)
' Next c
With Range("a5:g" & Range("h" & Rows.Count).End(xlUp).Row)
.FillDown
End With
With Range("t5:y" & Range("h" & Rows.Count).End(xlUp).Row)
.FillDown
End With
thanks for having a look
YLP
It bombs on the first instruction--
Sub FillDown_2()
Dim ws1 As Worksheet
Dim LRow As Long
Dim UpperCase
Dim Rng As Range
Dim c As Range, rg As Range, cel As Range
Set ws1 = Workbooks("TGS Item Record Creator.xls").Sheets("Record Creator")
'Variable
LRow = ws1.Cells(Rows.Count, 3).End(xlUp).Row
'On Error Resume Next
' Set Rng = Cells.SpecialCells(xlCellTypeConstants, 2)
' For Each c In Rng
' c.Value = UCase(c.Value)
' Next c
With Range("a5:g" & Range("h" & Rows.Count).End(xlUp).Row)
.FillDown
End With
With Range("t5:y" & Range("h" & Rows.Count).End(xlUp).Row)
.FillDown
End With
thanks for having a look
YLP