Question

UserForm1.TextBox1.Value = "G4"

Set CodeRange = Range(UserForm1.TextBox1.Value, Cells(Rows.Count, "G").End(xlUp))

Gives: methog range of object _global failed

Pls some help how to convert value from form to range.

Answer 1

Your code looks okay to me, although slightly unorthodox. Have you dimensioned CodeRange as a range?

If the activehseet is a chart sheet you will get that error.

You should also fully qualify your reference with the worksheet or activesheet.

With WorkSheeets("Sheet1")
    Set CodeRange = .Range(UserForm1.TextBox1.Value, .Cells(Rows.Count, "G").End(xlUp))
End With

If your code is residing in the Userform module then you can use the Me keyword instead of Userfrom1.

I prefer to get ranges from the user using a input box like this:

Sub HTH()

    Dim rRange As Range

    On Error Resume Next
    rRange = Application.InputBox(Prompt:= _
            "Please select a range with your Mouse to be bolded.", _
            Title:="SPECIFY RANGE", Type:=8)
    On Error GoTo 0

    If Not rRange Is Nothing Then
        '// Your code here
    End If


End Sub