VBA range not recognized

[FryGirl]

Not sure what has happened here or what I may have done, but what I'm typing in VBA the range is not recognized. Any thoughts as to why?

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub TestThis()
    range("A1").CurrentRegion
End Sub
[/FONT]

Notice the range does not capitatlize.

 

[Michael M]

That won't work anyway....what are you trying to do ??

 

[FryGirl]

Sorry, that was just a snippet. I'm running a macro to fill in a selection with random numbers with some formatting.

Notice how all the range references are lower case. The code runs, just curios why the range reference stays at lower case. Did I accidentally change a setting?

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub randomnumbers()
    
    Dim Low     As Double: Low = 1 '<<< CHANGE AS DESIRED
    Dim High    As Double: High = 20 '<<< CHANGE AS DESIRED
    Dim Rng     As range: Set Rng = range("A1").CurrentRegion
    Dim Cnt     As Long: Cnt = Selection.Columns.Count
    Dim i       As Long
    
    TurnEverythingOff
    On Error GoTo Skip
    
    For Each Rng In Selection
        Rng = Int((High - Low + 1) * Rnd() + Low)
    Next Rng
    For i = 1 To Cnt: Cells(1, i).Value = "Hdr" & i: Next i
    range("A1").CurrentRegion.Borders.LineStyle = xlContinuous
    Rows("2:2").Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.DisplayGridlines = False
    Application.Goto range("A2"), Scroll:=True
    range("A2").AutoFilter
    Cells.EntireColumn.AutoFit
    range("A1", Cells(1, Columns.Count).End(xlToRight)).SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 6
Skip:
    TurnEverythingOn
End Sub
[/FONT]

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub TurnEverythingOff()
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .DisplayAlerts = False
        .ScreenUpdating = False
        .DisplayStatusBar = False
    End With
End Sub[/FONT]

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub TurnEverythingOn()
    With Application
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .DisplayAlerts = True
        .ScreenUpdating = True
        .DisplayStatusBar = True
    End With
End Sub[/FONT]

 

[Michael M]

Ok, gotcha......works fine for me, in terms of resorting to Proper case !!
Close and reopen maybe...never actually noticed it before on any of my projects.

 

[FryGirl]

Thanks Michael. Yes I had closed and reopened but no change. I was just curios.

 

[Akuini]

Maybe somewhere in your code, you have a variable with name "range", something like:
Dim range As String

 

[Fluff]

One option as stated by Akuini is you have used Range as the name for a variable, another option is you have used it as the name for a procedure.

 

[FryGirl]

Thank you both. I didn't see any variable named range, but I did see a function named range. I will have to check into this deeper after work.

 

[Fluff]

It's always best to avoid using vba keywords as names for variables or procedures as it can cause all sorts of problems.