'Object Required' while using Object Parameter Sub

[AdmiralAn0nymous]

Hey everyone, I'm getting a 424 error while using the following code:

Private Sub Command1_Click()
Dim GreenSubject
GreenSubject = InputBox("Green Subject is?") 'Input which object we want to be green
MakeGreen GreenSubject  'Call the green function on the variable GreenSubject
End Sub

Public Sub MakeGreen(ByVal ObjectName As Object)
ObjectName.Backcolor = vbGreen
End Sub

After some research I believe it's something to do with different parameter types. I still can't get it to work though. Any help is very appreciated.